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FOREWARD 


This  project  was  made  possible  through  initial  and  continuing  support  of  Boeing 
Aerospace  Co.  management  and  through  the  dedicated  efforts  of  its  engineers  and 
technicians.  Those  persons  who  were  directly  involved  in  the  project  are  shown 
below.  There  are  also  many  others  who  also  contributed  invaluably  to  the  success 
of  the  project. 


PROJECT  ORGANIZATION 


SUMMARY 


A  prototype  system  has  been  assembled  to  establish  the  feasibility  of  performing 
assembly  verification  using  advanced  non-film  radiographic  techniques.  The 
equipment  has  been  configured  to  provide  real  time  X-ray  radiography,  digital 
image  enhancement,  remote  part  positioning,  and  computer-aided  inspection. 

Real  time  X-ray  techniques  have  been  applied  to  an  inert  ROLAND  missile  which 
was  assembled  for  this  purpose.  When  viewing  parts  of  relatively  uniform 
thickness,  an  X-ray  image  intensifier  coupled  to  a  vidicon  camera  provides 
adequate  sensitivity  for  configuration  inspection  applications.  However,  when  a 
part  has  very  thick  areas  next  to  very  thin  areas,  the  high  energies  required  to 
inspect  the  thick  areas  allow  sufficient  energy  levels  in  the  thin  areas  to  blind  or 
damage  some  vidicon  cameras.  Applications  of  this  nature  require  use  of  a 
different  camera  system,  such  as  a  fluorescent  screen  and  an  isocon  camera. 

Provisions  for  remote  control  of  part  motion  are  necessary  to  take  full  advantage 
of  real  time  radiography.  A  prototype  part  manipulation  table  and  control  unit  has 
been  assembled  to  perform  remote  part  positioning  either  manually  or  by  a 
computer. 

When  higher  resolution  than  provided  by  the  real  time  system  is  required,  the  use 
of  image  processing  is  indicated  to  increase  the  image  contrast  and  detail 
sharpness.  A  broad  range  of  digital  image  processing  techniques  has  been 
examined.  Techniques  found  advantageous  were  video  frame  averaging,  contrast 
modification,  gray  level  slicing,  Laplacian  and  gradient  edge  enhancement,  and 
pseudocolor.  Useful  evaluation  aids  included  split  screen  for  comparison  of  two 
images  and  profile  and  histogram  graphics.  The  evaluation  has  produced  an 
optimized  image  processing  sequence  for  each  critical  inspection  area  on  the 
ROLAND  missile. 

A  computer-aided  inspection  system  has  been  developed  to  perform  parts  position¬ 
ing,  image  enhancement  sequences,  and  records  storage  and  retrieval.  The  final 
acceptance  decisions  are  made  by  the  operator.  Cost/benefit  studies  indicate  that 
high  volume  manufacturing  applications  could  benefit  from  computer-aided  inspec¬ 
tion  procedures  as  well  as  image  processing  techniques. 
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Image  storage  techniques  have  been  evaluated  with  respect  to  cost,  quality,  and 
ease  of  retrieval.  High  density  digital  magnetic  tape  is  the  preferred  choice. 
However,  for  applications  not  requiring  a  computer  for  image  processing  or  records 
management,  video  tape  provides  an  adequate  image  storage  medium. 

As  a  result  of  this  project  it  has  been  concluded  that  real  time  X-ray  should  be 
implemented  into  all  inspection  facilities  performing  radiographic  assembly  verifi¬ 
cation  (e.g.,  ROLAND).  In  addition,  it  has  been  determined  that  development  of 
systems  with  higher  resolution  and  sensitivities  would  make  possible  wider  applica¬ 
tion  of  this  technique,  resulting  in  the  replacement  of  most  film-based  radiography. 
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1.0  INTRODUCTION 


Many  products,  such  as  the  ROLAND  missile,  must  pass  an  X-ray  inspection  prior 
to  release  from  the  manufacturer.  This  is  to  assure  that  all  internal  parts  are 
present  and  assembled  correctly.  Without  verification  of  internal  structure  by 
radiographic  inspection,  a  defective  missile  could  be  deployed.  Such  a  missile 
could  malfunction  and  potentially  cause  catastrophic  failure. 

Radiographic  examination  of  critical  low-rate-production  components  and  assem¬ 
blies  traditionally  has  made  use  of  film  processing  methodology.  The  use  of  film- 
based  methods  is  prohibitive  for  high  rate  production  due  to  the  high  labor  and  film 
costs  and  excessive  flow  time.  The  development  of  a  non-film  radiographic 
inspection  method  was  clearly  necessary  to  reduce  the  costs  of  assembly  verifica¬ 
tion  of  high  volume  products. 

Fluoroscopy  offers  the  best  potential  to  replace  conventional  film  radiography. 
Applications  of  real  time  systems  have  been  limited  because  the  X-ray  image  is 
generally  of  lower  quality  than  film.  Low  sensitivity  has  been  a  major  drawback  in 
applications  requiring  detection  of  very  small  flaws,  but  when  examination 
requirements  are  primarily  related  to  hardware  configuration,  spatial  resolution  is 
of  lesser  importance. 

The  purpose  of  the  project  has  been  to  develop  and  demonstrate  a  prototype  non¬ 
film  radiographic  method  for  verifying  the  configuration  of  large,  complex  parts. 
The  ROLAND  missile  final  assembly  inspection  was  chosen  as  the  target  applica¬ 
tion  for  this  project,  although  the  techniques  developed  could  be  used  for 
inspecting  the  internal  configuration  of  any  complex  missile  or  part. 

Recent  improvements  in  fluoroscopic  screens,  electro-optical  imaging  devices  and 
image  processing  technology  have  substantially  reduced  the  gap  between  film  and 
direct-viewing  systems.  The  improved  technology  has  made  it  feasible  to  develop  a 
non-film  system  for  examination  of  ROLAND  hardware  which  will  meet  inspection 
requirements  at  a  significantly  lower  cost,  ultimately  resulting  in  greater  relia¬ 
bility  due  to  the  capability  for  more  complete  inspection  coverage. 


A  real  time  fluoroscopic  X-ray  inspection  system  has  been  developed  to  meet  the 
goals  of  reduced  cost  and  flow  time.  The  concept  of  real  time  X-ray  is  shown  in 
Figure  1.0-1.  The  X-rays  which  pass  through  the  test  part  fall  on  a  fluoroscopic 
screen  instead  of  a  photosensitive  X-ray  film.  The  fluoroscopic  screen  converts 
the  X-rays  to  visible  light,  and  a  camera  transmits  the  image  to  a  remote  monitor. 
Remote  control  of  part  motion  allows  the  operator  to  inspect  the  part  at  every 
angle  and  position.  The  real  time  image  may  be  digitized  so  that  image 
enhancement  techniques  can  be  performed  upon  it.  The  digitized  image  may  be 
saved  on  a  magnetic  tape  or  disc  associated  with  a  computer  system.  Automatic 
control  of  parts  positioning  and  image  processing  allows  a  computer-aided  inspec¬ 
tion  scheme  to  be  used.  With  this  system,  techniques  have  been  developed  that 
could  be  applied  to  final  assembly  verification  of  the  ROLAND  missile. 

• 

It  is  estimated  that  a  cost  reduction  of  8:1  and  flow  time  reduction  of  5:1  could  be 
achieved  through  the  implementation  of  non-film  methods.  For  the  ROLAND 
missile  this  would  result  in  a  savings  of  over  $1.1  million  based  on  a  production  of 
10,000  units. 
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FIGURE  1.0.1  REAL  TIME  RADIOGRAPHY  -  CONCEPT 
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2.0  SCOPE  OF  WORK 

The  scope  of  this  project  covers  the  evaluation  of  three  areas:  real  time  X-ray, 
image  processing,  and  computer-aided  inspection.  The  real  time  X-ray  system 
includes  a  fluoroscopic  image  intensifier  tube,  an  antimony  trisulfide  vidicon 
camera,  a  TV  monitor,  and  a  remotely-controlled  part  manipulation  table.  Digital 
image  processing  was  executed  under  control  of  a  computer  system,  and  was 
performed  on  digitized  images.  The  computer-aided  inspection  system  controls 
routine  procedures,  such  as  part  positioning,  image  processing  sequences,  and 
storage  and  retrieval  of  records  and  images.  Computerized  decision-making  was 
not  investigated  and  did  not  fall  within  the  scope  of  this  project. 

The  prototype  inspection  system  was  applied  to  assembly  verification  of  the 
ROLAND  missile  propulsion  unit.  Since  this  inspection  was  the  target  application 
for  the  project,  care  was  taken  to  assure  that  all  ROLAND  radiographic  inspection 
requirements  could  be  met. 

The  major  program  milestones  and  their  interrelationships  are  diagrammed  in 
Figure  2.0-1.  After  the  real  time  imaging  system  was  assembled,  part  manipula¬ 
tion  and  image  processing  systems  were  added.  A  prototype  computer-aided 
evaluating  inspection  system  was  then  developed.  Optimization  of  the  real-time 
images  of  image  processing  techniques,  and  determination  of  the  best  testing 
procedure  for  the  computer-aided  inspection  were  accomplished.  It  was  then 
possible  to  perform  a  cost/benefit  analysis  for  these  systems.  An  industry 
demonstration  was  given  on  September  17  and  18,  1980. 
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TEST  SPECIMEN 


3.0  EQUIPMENT  DESCRIPTION 


To  assure  a  high  probability  of  success,  the  equipment  selected  was  that  which  met 
the  highest  possible  standards  consistent  with  return  on  investment  rationale  of  a  2 
year  payback.  Figure  3.0-1  shows  a  block  diagram  of  the  overall  system.  The 
individual  items  are  described  below: 

1.  X-Ray  Generator,  Model  MCN321,  Philips  Electronic  Instruments,  Inc. 

2.  X-Ray- to-Visible  Light  Converter  and  Intensifier,  Dynascope  Models  22D20R 
and  17D20,  Machlett  Laboratories,  Inc. 

3.  Video  Camera,  Model  LSV-1,  Sierra  Scientific  Corp. 
k.  Video  Monitor,  Model  SNA-24R,  CONRAC  Corp. 

5.  Image  Processor,  Model  70/E,  Stanford  Technology  Corp. 

6. '  Image  Processor,  Computer  Interface,  Boeing  Aerospace  Co. 

7.  Computer  System-Model  550,  Prime  Computer  Inc. 

8.  Parts  Control-Computer  Interface,  Boeing  Aerospace  Co. 

9.  Parts  Control,  Boeing  Aerospace  Co. 

A  ROLAND  missile  booster  and  sustainer  motor  section  was  assembled  with  inert 
grains  for  use  during  the  project.  The  inert  grains  were  machined  from  solid 
polyvinyl  chloride  (PVC)  rods  to  simulate  actual  grains  in  dimensional  stability  and 
optical  density  and  uniformity.  However,  these  inert  grains  were  not  coated  to 
simulate  an  inhibitor  as  this  would  have  been  cost  prohibitive  and  that  requirement 
can  be  met  when  the  system  is  implemented. 

3.1  MECHANICAL  EQUIPMENT 

The  real  time  X-ray  mechanical  equipment  has  been  assembled  to  permit  a 
complete  examination  of  the  ROLAND  missile.'  The  part  manipulation  table 
(Figure  3.1-1)  supports  the  missile  at  each  end.  The  table  was  constructed  with 
three  degrees  of  freedom:  longitudinal,  transverse,  and  rotational.  The  longitud¬ 
inal  and  transverse  movements  p>ermit  a  full  scan  of  the  missile  over  the  total 
length  and  width  while  it  is  continuously  rotated.  A  remotely  controlled  lead  shield 
(Figure  3.1-2)  permits  selective  examination  of  small  areas  and  reduces  scattered 


X-rays,  improving  sensitivity.  The  X-ray  tube  height  can  be  adjusted  to  achieve  a 
source-to-fluorescent-screen  distance  of  up  to  210  cm  (Figure  3.1-3).  All 
movements  are  electrically  controlled  and  can  be  remotely  adjusted. 

The  prototype  system  enables  the  missile  to  be  manipulated,  allowing  evaluation  of 
all  of  the  defined  inspection  locations.  Motor  drive  systems  were  installed  to  allow 
automatic  positioning  of  the  missile  simulating  actual  production  testing  opera¬ 
tions.  Radiography  was  performed  vertically  in  the  prototype  system  to  comply 
with  safety  regulations  for  the  particular  facility.  Modification  of  the  mechanical 
system  will  be  accomplished  during  the  production  implementation  to  accommo¬ 
date  horizontal  radiography. 


FIGURE  3.1-3  X-RAY  SOURCE  AND  IMAGE  INTENSIFIER  CONFIGURATION 
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3.2  REAL  TIME  RADIOGRAPHIC  EQUIPMENT 


The  equipment  necessary  for  real  time  radiography,  in  addition  to  a  source  of 
X-rays,  falls  into  two  categories:  (1)  the  conversion  of  X-ray  light  to  visible  light, 
and  (2)  the  viewing  of  the  converted  radiation. 

Fluorescent  screens  convert  X-ray  light  to  visible  light.  They  are  made  from  a 
variety  of  materials,  and  are  generally  designed  for  specific  applications.  X-ray 
image  intensifies  contain  a  fluorescent  material  but  amplify  the  light  output  by 
several  thousand  times.  As  a  result  of  the  intensification,  however,  the  image 
contrast  is  significantly  reduced,  resulting  in  a  lower  dynamic  range  than  that  of 
fluorescent  screens. 

Direct  viewing  of  a  fluorescent  screen  or  image  intensifier  is  not  practical  because 
of  the  geometry,  radiation  hazard,  and  low  light  level.  A  video  camera  and  remote 
monitor  is  a  convenient  system  for  viewing  the  visible  image.  There  are  two  video 
tubes  commonly  used  in  this  application:  vidicon  and  isocon.  The  vidicon  is  an 
inexpensive  tube  but  has  low  sensitivity  and  dynamic  range  and  is  blinded  by  high 
light  levels.  The  much  more  expensive  isocon  tube  has  high  sensitivity  and  a  wide 
dynamic  range.  A  Sierra  Scientific  Corp.  Model  LSV-1  video  camera  with  a 
antimony  trisulfide  vidicon  tube  was  used  during  this  study  because  of  availability 
and  cost. 

Two  image  intensifies  were  utilized  at  different  times,  Machlett  Laboratories, 
Inc.  Models  22D20R  and  17D20.  The  camera  and  intensifier  were  optically  coupled 
by  two  KOWA  fixed  focus  lenses,  both  42  mm  @  f/1.1. 

3.3  IMAGE  PROCESSOR 

The  minimum  requirements  established  for  this  system  are  as  follows: 

1.  Video  input:  Analog  to  digital  converter,  8-bit  resolution,  10  MHz  sample  rate 
minimum. 

2.  Video  output:  Digital  to  analog  conversion  controlled  by  table  lookup  and/or 
bit  level  manipulation. 
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3.  Memory  compatible  with  video  in/out  512  x  512  minimum,  1024  x  1024 
desirable.  Bits  per  pixel  must  be  compatible  with  functional  requirements  (12 
bits  if  frame  summing  is  provided,  8  bits  if  only  averaging  is  provided). 

4.  Digital  input/output:  Provisions  must  be  available  for  parallel  input  or  output 
at  rates  greater  than  500,000  bytes  per  second. 

5.  Programming  capabilities:  Unit  must  have  capability  of  control  of  its  function 
via  an  outside  computer.  Such  functions  must  include  as  a  minimum: 

Summation  of  specified  number  of  frames  or  as  an  alternative,  averaging 
of  a  specified  number  of  frames. 

Inversion  of  memory  or  alternate  subtraction  of  specified  number  of 
frames. 

Overlay  via  computer  control  ASCII  characters  or  symbols. 

Desired  option:  Ability  to  manipulate  sections  of  memory  via  the 
computer  independent  of  the  rest  of  memory,  commonly  termed:  scroll, 
zoom,  split  screen,  quartering,  window  transfer,  psuedo  color. 

A  summary  of  available  systems  and  their  acceptability  is  given  in  Figure  3.3-1. 
Two  systems  met  the  minimum  requirements:  the  IP-5000  manufactured  by 
DeAnza  Systems,  Inc.,  and  the  Model  70/E  manufactured  by  Stanford  Technology 
Corporation.  The  Model  70/E  image  processor  was  selected  because  of  the 
following  advantages:  The  input/output  transfer  rate  was  four  times  faster  than 
the  IP-5000.  The  time  for  conversion  from  video  to  digital  with  8-bit  resolution 
was  four  times  faster  in  the  Model  70/E.  Processing  speeds  for  additions, 
subtractions,  multiplications,  etc.,  were  as  much  as  17  times  faster  in  the  Model 
70/E.  The  Model  70/E  has  hardware  histogram  generation  and  hardware  min-max 
pixel  intensity  calculation  as  opposed  to  software  generation  in  the  IP-5000.  The 
software  package  and  documentation  also  was  better  for  the  Model  70/E. 

3.4  COMPUTER  SYSTEM 

The  computer  selection  for  this  project  was  based  on  the  ability  to  meet  the 
specific  hardware,  execution  speed,  and  software  requirements  to  facilitate 
development  and  to  execute  implemented  tasks. 
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Also,  the  memory  management  system  must  manage  a  large  records  data  base, 
control  mechanical  motion,  and  must  be  capable  of  executing  a  large  program  that 
manipulates  an  image  in  memory.  Six  systems  were  examined  after  preliminary 
screening.  A  comparison  is  given  in  Figure  3.4-1.  Two  of  these  computers,  the 
Hewlett-Packard  1000  and  the  Prime  550  were  examined  in  detail. 

Memory 

The  Prime  550  memory  capacity  of  8  MB  of  real  memory  and  32  MB  of  user 
memory  by  means  of  the  virtual  memory  feature  exceeds  present  and  probably 
future  requirements.  HP  memory  capability  does  not  meet  these  requirements,  but 
a  means  of  swapping  between  programs  is  provided.  This  would  require  develop¬ 
ment  of  programs  in  segments,  increasing  programming  costs  and  greatly  increas¬ 
ing  execution  time. 

Software 

The  software  capabilities  of  the  Prime  exceed  that  of  the  HP,  although  the  HP 
does  provide  the  software  tools  necessary  to  meet  minimum  requirements.  Prime 
provides  full  implementation  of  FORTRAN  IV  while  HP  does  not,  but  HP  does 
provide  work-around  methods. 

Speed 

One  of  the  main  purposes  of  the  computer  is  to  control  the  digital  image  system 
and  the  possible  manipulation  of  large  data  arrays  (up  to  512  x  512).  A  benchmark 
program  was  written  to  define  the  exact  speed  of  the  two  computers  performing 
the  type  of  calculations  encountered  in  the  application.  The  result  of  this 
benchmark  test  showed  a  speed  advantage  of  better  than  2. lx  for  Prime  over  HP. 


Maintainability  and  Reliability 


The  selection  of  the  prime  computer  over  the  Hewlett-Packard  was  also  made  due 
to  the  maintainability  and  reliability  of  the  computer.  The  Prime  computer  has 
proven  to  be  reliable,  and  the  diagnostic  capabilities  have  proven  to  be  effective. 
In  one  case,  the  diagnostic  program  located  a  bad  memory  chip,  and  since  the  chip 
was  mounted  in  a  socket,  it  was  easily  replaced. 

3.5  EQUIPMENT  INTERFACING 

The  interconnection  of  most  subsystems  is  either  inherent  in  a  subsystem  or  a 
simple  switching  control  to  route  signals  to  manual  controls  or  automatic  controls. 
The  exceptions  are  the  interfaces  between  the  Prime  550  computer  and  both  the 
STC  Model  70/E  image  processor  and  the  motor  control. 

The  image  processor  interface  includes  both  software  and  hardware  components. 
The  hardware  was  designed  around  the  requirements  of  STC  Model  70/E  hardware 
and  software.  The  interface  software  design  makes  the  hardware  compatible  with 
the  STC  user  programs.  The  interface  was  built  on  the  Prime  General  Purpose 
Interface  Board  (GP1B)  and  installed  in  the  computer.  Two  cables  connect  the  STC 
image  processor  to  the  GP1B.  The  details  of  the  interface  board  and  software 
driver  are  included  in  Appendices  1  and  2. 

An  interface  between  parts  movement  and  computer  or  operator  was  designed 
around  joy  sticks,  the  type  used  in  the  hobby  industry.  The  design  allows  either 
manual  or  computer  control  of  the  part  manipulation  table.  Control  is  provided  for 
X,  Y,  and  rotational  parts  movement,  X  and  Y  lead  mask  position,  X-ray  tube 
height  and  X-ray  voltage  and  current  settings.  The  details  of  the  motor  control 
interface  design  and  the  software  driver  are  included  in  Appendices  3  and  4. 
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4.0  RADIOGRAPHY 


Railu\>;i.i|>h\  is  (lio  standard  quality  assurance  inspection  technique  used  for  a  wide 
variety  ol  applications,  such  as  assembly  verification  and  inspection  of  casts  and 
welds,  excessive  costs  and  flow  times  have  made  film-based  techniques  increas¬ 
ingly  prohibitive,  causing  industry  to  search  for  non-film  radiographic  inspection 
methods. 

4.1  REAL  TIME  RADIOGRAPHY 

Real  time  radiography  is  a  non-film  technique  that  uses  a  TV  camera  and  monitor 
to  display  the  image  instead  of  capturing  it  on  film.  In  addition  to  eliminating  the 
cost  of  film  and  reducing  flow  time,  real  time  radiography  offers  an  additional 
advantage— that  of  motion. 

4.1.1  THE  ADVANTAGE  OF  MOTION 

Real  time  radiography  allows  movement  of  the  test  part  during  the  radiographic 
inspection.  This  is  one  major  advantage  that  real  time  X-ray  has  over  film 
radiography  for  the  inspection  of  most  complex  items.  Motion  of  the  part, 
especially  rotation,  allows  the  observer  to  integrate  the  total  picture  and  build  a 
three-dimensional  impression,  greatly  enhancing  the  ability  to  detect  and  identify 
flaws  and  perceive  their  location. 

When  a  part  is  in  motion,  small  flaws  may  be  easily  differentiated  from  background 
noise  or  system  imperfections.  The  ability  to  view  a  part  in  motion  provides  a 
rapid  means  of  scanning  complex  parts  at  various  angles,  allowing  more  reliable 
identification  of  any  defects. 

The  lower  resolution  inherent  in  real  time  radiography  is  compensated  for  by  the 
advantages  of  motion.  Real  time  X-ray  easily  permits  100%  inspection  of  a  part, 
which  is  impractical  with  film  techniques  for  most  applications. 
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4.1.2  METHODS  OF  REDUCING  SCATTERED  RADIATION 


Real  time  systems  do  not  as  yet  provide  the  quality  that  has  been  developed  with 
film  methods.  The  system  used  in  this  project  will  resolve  thickness  changes  in 
aluminum  down  to  about  2%  under  optimum  conditions  while  film  can  usually 
resolve  changes  much  less  than  2%  (2T).  Under  less  than  ideal  conditions, 
resolution  and  contrast  suffer  from  scattered  radiation  from  complex  parts  and 
from  the  greater  distance  between  the  fluorescent  screen  and  the  object  being 
tested. 

Scattered  radiation  may  be  reduced  by  masking  off  areas  that  do  not  contribute  to 
a  specific  point  of  interest.  This  has  been  accomplished  by  remotely  controlled 
lead  shields  that  can  be  closed  from  two  directions  (X  <5c  Y)  reducing  radiation  from 
the  sides.1  This  has  an  added  advantage  for  the  vidicon  tube,  which  is  easily  blinded 
by  areas  of  high  intensity  light.  For  example,  if  the  point  of  interest  is  in  a  thick 
section  of  the  missile,  the  adjacent  thin  sections  can  be  masked  off  by  remote 
control. 

Since  lower  energy  photons  tend  to  be  more  easily  scattered,  they  may  be  reduced 
somewhat  by  filtration  from  the  X-ray  beam.  Filtering  may  be  accomplished  by 
placing  a  thin  film  of  lead  over  the  X-ray  tube. 

The  medical  profession  uses  a  collimating  diaphragm  composed  of  many  thin 
closely  spaced  lead  sheets  sandwiched  between  transparent  spacers.  The  lead 
sheets  are  parallel  to  the  X-ray  beam,  allowing  it  to  pu.»,  but  blocking  nearly  all 
scattered  radiation.  The  diaphragm,  also  called  a  grid,  is  placed  between  the 
object  and  the  fluorescent  screen.'  This  system  was  evaluated  and  appears  to  be  of 
some  benefit. 

4.1.3  VIEWING  OF  THE  X-RAY  IMAGE 

There  are  two  basic  equipment  configurations  used  for  converting  the  X-rays  to  a 
visible  image  and  transmitting  that  image  to  a  TV  monitor.’  The  vidicon  camera 
and  an  image  intensifier  tube  may  be  optically  coupled,  as  was  done  for  this 
project,  or  an  isocon  camera  may  transmit  the  image  from  a  fluorescent  screen. 
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A  brief  examination  of  an  isocon  camera  was  made  using  fluorescent  screens 
designed  for  medical  use.  It  was  apparent  that  even  under  crude  experimental 
conditions  the  isocon  system  is  superior  to  the  vidicon  system  in  at  least  one 
respect.  The  low  light  level  sensitivity  and  extreme  dynamic  range  obviate  the 
need  for  the  intricate  masking  necessary  with  the  vidicon  camera  and  image 
intensifier.  The  only  drawback  of  the  fluorescent  screen-isocon  camera  system 
was  an  overall  lower  sensitivity.  With  the  system  examined,  full  X-ray  output  was 
required  to  equal  the  image  intensifier-vidicon  brightness  at  a  much  lower  X-ray 
output. 

The  combination  of  image  intensifier  and  vidicon  camera  is  very  sensitive  but 
suffers  from  a  narrow  dynamic  range  and  thus  is  best  suited  for  objects  of 
relatively  uniform  density.  The  combination  of  fluorescent  screen  and  isocon 
camera  have  wide  dynamic  range  but  require  more  X-rays  (higher  energy  or 
greater  intensity)  to  produce  a  satisfactory  image.  Therefore,  there  is  a  different 
best  system  for  each  application.  At  this  point  in  the  development  task,  it  appears 
that  a  very  good  system  able  to  handle  most  jobs  would  be  as  follows: 

o  High  Energy  or  High  Intensity  X-Ray  Source 
o  Selection  of  Fluorescent  Screens 
o  Isocon  Camera 
o  Selection  of  Lenses 

This  setup  could  produce  images  of  complex  parts,  and  still  provide  the  flexibility 
to  examine  details  where  higher  resolution  is  needed.  Greater  detail  would  be 
achieved  by  a  narrower  field  of  view. 

If  the  application  requires  examination  of  very  thick  parts,  for  example  more  than 
5  cm  of  aluminum,  the  fluorescent  screen-isocon  system  may  require  integration  of 
many  frames  to  obtain  adequate  brightness.  This  would  remove  the  advantage  of 
motion  in  real  time. 
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4.2  IMAGE  PROCESSING 


Although  the  real  time  system  described  above  permits  examination  of  a  part  while 
it  is  in  motion,  it  does  not  provide  the  contrast  or  resolution  of  film  methods. 
Image  quality  may  be  improved  considerably  through  image  processing. 

Image  processing  can  be  accomplished  by  two  basically  different  approaches,  video 
signal  processing  and  digital  image  processing.  Video  signal  processing  provides  a 
very  rapid  response  to  changes  in  an  image,  which  is  tantamount  to  doing  real  time 
image  enhancement.  However,  it  is  a  very  limited  and  inflexible  technique. 
Digital  image  processing,  a  more  versatile,  computer-controlled  method,  was 
selected  for  this  project.  Digital  image  processing  technology  has  advanced  rapidly 
in  recent  years  because  of  the  vast  amounts  of  satellite  (LANDSAT)  data  available 
for  land  use  planning  and  other  applications.  Many  of  these  techniques  are  directly 
applicable  to  radiographic  image  processing.  The  processes  applicable  to  this  study 
are  fundamentally  of  four  types:  noise  reduction,  edge  enhancement,  contrast 
manipulation  and  color  representation. 

4.2.1  NOISE  REDUCTION 

A  video  image  is  composed  of  many  adjacent  lines  with  the  intensity  of  each  line 
varying  continually  along  its  length.  On  the  other  hand,  a  digital  image  is 
composed  of  rows  and  columns  of  picture  elements  (pixels),  each  of  which  has  a 
discrete  intensity.  A  video  signal  contains  a  significant  level  of  noise,  producing  a 
grainy  and  confusing  effect.  The  magnitude  and  distribution  of  the  noise  is 
basically  random,  and  therefore,  can  be  reduced  by  averaging  several  images  (video 
frames)  within  a  very  short  time.  The  noise  level  is  reduced  by  the  square  root  of 
the  number  of  frames  averaged.  If  the  object  is  stationary,  a  large  number  of 
frames  can  be  avaraged,  greatly  reducing  the  noise  level.  Averaging  256  frames 
reduces  the  noise  by  a  factor  of  16;  at  an  execution  rate  of  15  frames  per  second, 
this  requires  only  17  seconds.  In  this  project,  all  images  were  produced  by 
averaging  256  frames. 

A  second  method  of  noise  reduction,  localized  averaging,  is  accomplished  by 
computing  the  average  of  a  pixel  intensity  with  that  of  its  neighbors.  Although  this 
technique  smoothes  out  the  noise,  it  also  blurs  the  image,  making  the  details 
unclear.  This  technique  is  unsatisfactory  for  radiographic  applications. 
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4.2.2  EDGE  ENHANCEMENT 


Edges  in  an  image  may  be  poorly  defined,  particularly  when  there  is  not  much 
contrast  between  an  object  and  its  surroundings.  Edge  enhancement  is  a  method  of 
increasing  the  contrast  where  there  are  edges,  thus  making  them  more  visible.  For 
example,  if  a  light  grey  object  is  surrounded  by  dark  grey,  edge  enhancement  would 
make  the  light  grey  object  lighter  at  the  edge,  and  the  surroundings  darker  at  that 
edge,  improving  the  contrast  between  the  two.  Digital  edge  enhancement 
transforms  the  intensity  of  each  pixel  based  on  the  intensity  of  its  neighbors. 
There  are  several  methods  of  edge  enhancement,  each  producing  different  results. 
Three  methods  of  edge  enhancement  have  been  examined  here:  difference, 
gradient,  and  Laplacian.  When  one  of  these  techniques  is  applied  to  an  image,  we 
are  left  with  only  the  edges.  By  adding  this  result  to  the  original  in  about  a  1:2 
ratio,  we  obtain  an  image  whose  edges  have  been  enhanced.  This  has  proven  to 
provide  the  most  aesthetically  pleasing  results.  Edge  enhancement  techniques 
naturally  result  in  an  increase  in  noise.  For  this  reason,  it  is  very  important  to 
start  with  the  lowest  noise  image  available  before  performing  edge  enhancement 
functions.  Low  noise  can  best  be  achieved  by  averaging  a  large  number  of  video 
frames. 

Difference 

The  difference  edge  enhancement  technique  is  the  simplest  of  transformations, 
whereby  the  intensity  of  each  pixel  is  replaced  by  the  difference  between  its 
intensity  and  that  of  an  adjacent  pixel.  This  produces  an  effect  like  casting  a 
shadow  from  one  side.  The  technique  is  fast,  requiring  only  one  video  frame  to 
obtain  the  difference,  but  increases  any  noise  present  in  the  image.  Figure  4.2.2- 1, 
an  example  of  the  difference  technique,  was  produced  by  adding  the  output  to  the 
original  in  a  ratio  of  1:2  and  displaying  it  with  the  original  in  a  split  screen  format. 

Gradient 

The  gradient  of  an  image  is  its  rate  of  change  of  intensity  with  respect  to  distance 
in  a  specific  direction.  This  is  a  general  case  of  the  difference  technique.  The 


FIGURE  4. 2. 2-1  DIFFERENCE  EDGE  ENHANCEMENT 


FIGURE  4 . 2 . 2 -  2  GRADIENT  EDGE  ENHANCEMENT 
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analytical  solution  to  this  problem  involves  finding  the  differential  equation  of 
each  pixel.  However,  an  approximation  to  this  solution  may  be  made  by  performing 
a  convolution  of  a  small  gradient  matrix  about  each  pixel.  For  example,  a  3  x  3 
north-south  gradient  matrix  would  be: 

1  1  1 

1  -2  1 

-1  -1  -1 

The  convolution  can  be  performed  in  17  video  frames.  The  gradient  results  in  a 
shadowed  edge;  its  direction  can  be  varied  and  it  is  less  sensitive  to  noise  in  the 
image.  Figure  4.2.2-2  is  an  example  of  an  east  gradient  with  a  3  x  3  convolution 
matrix. 

Laplacian 

The  Laplacian  transform  of  an  image  is  its  rate  of  change  of  intensity  with  respect 
to  distance  without  regard  to  direction.  As  with  the  gradient  technique,  a  matrix 
convolution  can  be  performed  as  an  approximation.  The  Laplacian  transformation 
being  non-directional  may  be  represented  by  a  matrix  with  symmetry  about  the 
center: 


1  1  1 

1  -8  1 

1  1  1 

The  output  of  the  Laplacian  transformation  shows  no  shadow  and  amplifies  noise. 
An  example  is  shown  in  Figure  4.2. 2-3.  The  non-directional  nature  of  the 
Laplacian  transform  amplifies  all  edges  regardless  of  orientation. 

These  edge  enhancement  techniques  can  improve  the  quality  of  an  image  and  the 
observers  ability  to  visualize  the  original  object.  The  Laplacian  technique  is  often 
the  most  useful,  especially  in  complex  images,  but  when  the  detail  in  question  is 
linear,  as  in  screw  threads,  a  gradient  technique  may  be  better. 
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4.2.3  CONTRAST  MANIPULATION 


An  eight-bit  digital  image  can  produce  256  different  shades  of  gray,  but  the  human 
eye  can  distinguish  only  about  64.  An  image  therefore  could  have  detail  available 
that  the  eye  could  not  see.  By  contrast  manipulation  it  is  possible  to  stretch  the 
gray  scale  in  one  regime  at  the  expense  of  another.  For  example,  detail  may  be 
brought  out  in  the  dark  areas  by  a  logarithmic  rescaling,  or  detail  in  the  light  areas 
may  be  brought  out  by  an  exponential  rescaling. 

Digital  image  processors  perform  contrast  changes  by  means  of  a  look-up  table 
translation  (mapping).  Thus  a  table  with  256  entries  may  translate  any  original 
level  to  any  other  chosen  level. 

The  most  useful  means  of  modifying  an  image  while  maintaining  the  overall 
information  is  linear  expansion  of  a  certain  gray  regime.  This  technique,  called 
piecewise  linear  mapping,  gives  the  operator  a  nearly  infinite  range  of  contrast 
modifications.  Figure  4.2.3- 1  shows  a  linear  mapping  of  an  image  that  lacked  the 
full  range  of  intensities.  Figure  4.2.3- 2  shows  an  extreme  modification  where  all 
intensities  outside  the  regime  of  interest  were  mapped  to  zero  (black). 

Gray  level  slicing  is  a  technique  where  all  intensities  below  a  selected  value  are  set 
to  black  and  all  others  set  to  white,  giving  a  marked  delineation  at  that  intensity. 
Another  means  of  viewing  the  same  information  is  through  color  level  slicing.  In 
this  technique  the  image  is  left  intact  but  ail  intensities  within  a  chosen  regime  are 
overlayed  with  a  contrasting  color.  When  this  feature  is  coupled  with  a  track  ball, 
joy  stick  or  other  interactive  means,  it  is  possible  to  bring  out  subtle  changes  in 
intensity  not  visible  to  the  eye.  Figure  4.2. 3-3  shows  an  example  of  color  level 
slicing. 

4.2.4  COLOR  REPRESENTATION 

Although  the  human  eye  can  differentiate  only  about  64  different  shades  of  gray,  it 
can  distinguish  many  times  that  number  of  shades  of  colors.  For  this  reason  it  is 
often  advantageous  to  add  the  color  dimension  to  the  image,  allowing  the  observer 
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to  see  smaller  changes  in  intensity.  Pseudocolor  is  a  function  which  assigns  a 
selected  color  to  each  gray  level  intensity.  Figure  4. 2. 4-1  shows  an  example  of  the 
pseudocolor  operation. 


4.2.5  SOFTWARE  OPERATIONS 

The  Stanford  Technology  Corp.  Model  70/E  image  processc:  has  been  designed  to 
be  very  flexible  and  accept  all  controls  from  a  computer.  STC  provides  a  software 
package,  System  500,  which  is  primarily  designed  for  satellite  data  processing. 
Application  of  the  system  to  this  task  and  in  particular  to  the  Pi  ime  550  computer 
required  some  software  modification  and  creation  of  two  additional  image  process¬ 
ing  functions. 

Software  Translation 

The  System  500  software,  while  written  in  FORTRAN  IV.  necessarily  contained 
significant  machine-dependent  code.  This  fell  into  four  general  areas:  hardware 


FIGURE  4. 2. 4-1  PSEUDOCOLOR  IMAGE  ENHANCEMENT 
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drivers  (discussed  elsewhere),  input  and  output  to  peripherals,  bit  manipulation,  and 
program  segmentation  and  swapping.  The  large  size  of  the  System  500  package 
required  the  program  segmentation  to  function  in  a  16-bit  computer.  These 
segments  are  swapped  into  the  computer  memory  as  required  to  execute  a  given 
process.  The  Prime  550  is  designed  around  virtual  memory  and  an  entirely 
different  scheme  for  executing  large  programs.  The  program  swapping  features 
were  removed,  and  actual  addresses  were  converted  from  two  byte  integers  to  four 
byte  integers.  Other  changes  were  handled  by  FORTRAN  callable  subroutines 
supplied  by  Prime  Computer  Inc.  These  subroutines  are  described  in  appendix  7. 

Software  Additions 

Two  capabilities  necessary  for  this  task  were  missing  from  the  System  500 
software:  the  ability  to  accumulate  video  frames  (averaging  or  time-smoothing), 
and  the  ability  to  easily  preserve  the  output  of  one  operation  for  use  in  the  next 
operation.  These  two  functions  are  described  in  detail  in  appendix  6.  The  first 
function,  subroutines  DAVG  and  DAVGD,  was  implemented  to  average  a  specified 
number  of  video  frames  in  the  processor's  16-bit  accumulator,  then  convert  to  an 
8-bit  image. 

The  result  of  an  image  process  exists  as  the  output  of  a  transformation.  In  order  to 
use  this  resultant  image  for  further  processing,  this  output  must  be  stored  in  one  of 
the  image  planes.  The  function  to  save  consists  of  subroutines  SAVE  and  SAVED 
and  allows  the  result  of  a  process  to  overwrite  the  original  image  or  to  be  saved  as 
a  new  image  in  another  image  plane. 

*.3  RADIOGRAPHIC  QUALITY 

Radiography  is  a  technique  analogous  to  projecting  a  shadow  of  a  transparent 
object.  All  of  the  parameters  affecting  the  sharpness  of  the  shadow  apply  to 
radiography:  the  relative  size  of  the  light  source,  the  distance  between  shadow  and 
object  and  light  source,  smoothness  of  the  surface,  etc. 
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The  important  features  which  determine  radiographic  quality  are  resolution, 
sensitivity,  and  contrast.  Silver  halide  film  used  in  photographic  film  radiography 
is  very  good  with  respect  to  all  of  these  properties  and  the  techniques  necessary  to 
attain  the  highest  possible  quality  with  film  are  well  understood.  The  major 
drawbacks  to  this  technique  are  the  high  labor  and  material  costs  and  long  flow 
times. 

4.3.1  PARAMETERS  AFFECTING  RESOLUTION 

The  resolution  of  an  image  is  a  function  of  many  parts  of  the  total  system.  One  of 
the  key  parameters  is  geometric  unsharpness,  which  is  dependent  upon  the  focal 
spot  size  of  the  x-ray  beam  and  the  relative  distances  from  the  object  to  the  x-ray 
source  and  to  the  screen  (or  film). 

The  focal  spot  size  is  measured  by  locating  a  lead  plate  with  a  pin  hole  midway 
between  the  source  and  a  radiographic  film.  It  is  then  calculated  as  the  size  of  the 
image  less  twice  the  size  of  the  pinhole.  Measurements  made  in  this  manner  are 
summarized  in  Figure  4.3.1 -1.  As  indicated,  no  significant  change  in  spot  size  was 
observed  over  the  range  of  experimental  conditions.  The  average  values  also  agree 
with  the  values  quoted  by  the  supplier. 

The  geometric  unsharpness  is  calculated  using  the  formula 

U  =  F  x  (t/D), 

where:  U  =  Geometric  unsharpness 
F  =  Focal  spot  size 
t  =  distance  from  object  to  screen 
D  =  distance  from  X-ray  source  to  object 

For  this  system,  t  =  14  cm  (5.5  in.)  and  D  =  213  cm  (7  ft.).  The  U  calculated  for  the 
large  (4.0  mm)  spot  is  0.26  mm  and  for  the  small  (1.9  mm)  spot  is  0.13  mm.  These 
values  reflect  a  basic  limitation  in  the  X-ray  system,  which  affects  both  film  and 
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non-film  resolution.  Thus,  one  advantage  film  has  over  fluoroscopic  systems  is  that 
"t"  can  be  made  very  small  by  placing  the  film  in  contact  with  the  object. 


Fluoroscopic  systems  and  film  both  have  inherent  limitations  in  resolution.  For 
example,  the  image  intensifier  Model  22D20R  is  advertised  to  have  a  maximum 
resolution  of  0.23  mm  normal  and  0.18  mm  high  magnification. 

The  video  portion  of  a  real  time  X-ray  system  provides  several  possible  sources  of 
resolution  limitation.  The  most  significant  of  these  are  signal-to-noise  ratio, 
bandwidth,  and  total  number  of  raster  lines.  For  example,  normal  video  systems 
display  about  480  lines,  while  image  processor  systems  usually  display  512  lines 
with  512  points  per  line.  The  optical  coupling  between  the  image  intensifier  and 
video  camera  in  this  system  produces  a  ratio  of  screen  size  to  object  size  of  2.1  for 
normal  and  3.2  for  high  magnification.  This  means  that  the  distance  between 
picture  elements  (pixels)  represents  0.24  mm  and  0.16  mm  at  the  object  for  normal 
and  high  magnification,  respectively. 
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4.17.  3.67,  3.77 

1.92.  2.37 

100 

3.97.  3.62,  3.72 

1.87 

80 

4.07 

1.82 

60 

4.02 

1.87 

40 
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1.92 

AVERAGE 

3.98 

1.93 
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FIGURE  4. 3. 1-1  MEASURED  FOCAL  SPOT  SIZE  FOR  PHILLIPS 

ELECTRONICS  INSTRUMENTS.  INC.  MODEL  MCN  321 
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These  three  limiting  factors  are  summarized  in  Figure  4.3.1 -2.  It  is  evident  that 
an  improvement  in  either  geometric  unsharpness  or  image  intensifier  resolution 
would  provide  very  little  system  improvement  without  a  comparable  change  in  the 
other.  On  the  other  hand,  the  overall  system  performance  could  be  improved  if  a 
different  lens  coupling  were  used  to  magnify  the  image  and  provide  more  pixels  to 
depict  each  detail.  That  is,  there  should  be  several  pixels  (TV  lines)  representing 
the  minimum  detectable  detail  limit  of  the  image  intensifier  for  maximum  system 
resolution.  The  minimum  frequency  response  necessary  to  equal  the  0.18  mm 
resolution  is  15  MHz  at  the  line  rate  of  15,750  lines  per  second  for  standard  video. 
Therefore,  it  is  necessary  to  purchase  high  quality  electronics  when  assembling  a 
real  time  X-ray  system. 


RESOLUTION  FACTOR 

LIMITATIONS  I 

Geometric  Unsharpness 

0.13  mm 

0.26  mm 

(smal 1  spot) 

( large  spot) 

Image  Intensifier 

0.18  mm 

0.23  mm 

(high  mag. ) 

(normal ) 

Pixel  Separation 

0.16  mm 

0.24  mm 

(high  mag. > 

(normal ) 

Figure  4. 3. 1-2  Resolution  Limitation  of  Prototype 

System  Due  to  X-Ray  Focal  Spot*  Image 
Intensifier  and  Video  Display 

*.3.2  MEASUREMENT  OF  RESOLUTION 

Quality  level,  a  measurement  affected  by  resolution,  sensitivity  and  contrast,  is 
the  parameter  radiographers  generally  use  to  describe  the  performance  of  an  X-ray 
system.  The  penetrameter  is  used  for  this  measurement  and  is  a  piece  of  material 
of  specific  thickness  (2%  of  material  being  radiographed)  with  three  holes,  the 
diameters  of  which  are  1,  2,  and  4  times  the  thickness  of  the  penetrameter.  The 
penetrameter  thickness  used  for  2.54  cm  (1.0")  material  is  0.0508  cm  (0.02").  The 
quality  level  is  expressed  as  the  penetrameter  thickness  and  the  smallest  hole  size 
visible,  e.g.,  2%-2T  =  .04"  dia.  hole  in  .02"  thick  penetrameter  on  material  of  1" 
thickness.  With  the  system  described  here,  using  aluminum  plate  and  aluminum 
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penetrameters,  results  are  a  function  of  object  thickness,  for  example,  Figure 
4.3.2- 1  shows  the  quality  levels  of  real  time  X-ray  and  image  enhancement.  Gray 
level  slicing,  a  method  of  contrast  manipulation,  was  the  method  of  image 
enhancement  used  to  emphasize  the  penetrameter  holes. 


ALUMINUM  THICKNESS 

QUALITY  LEVEL  ] 

REAL  TIME  RADIOGRAPHY 

IMAGE  PROCESSING 

3.81  cm  (1:5  ) 

4%  -  2T 

2%  -  2T 

2.54  cm  (1.0  ) 

4%  -  2T 

2%  -  2T 

.92  cm  (.375  ) 

4%  -  2T 

4%  -  2T 

Figure  4. 3. 2-1  Penetrameter  Sensitivity 


4.4  RADIOGRAPHIC  RECORDS 

The  elimination  of  X-ray  film  necessitates  using  an  alternate  method  of  image 
storage.  The  requirements  for  such  a  method  are:  the  image  must  be  stored  for  a 
long  time,  it  must  be  easy  to  retrieve,  it  must  retain  the  original  quality  of  the 
image,  it  must  be  able  to  be  entered  back  into  the  imaging  system,  and  it  must 
have  a  low  cost  per  image. 

The  following  types  of  storage  methods  were  examined:  video  tape,  video  disc, 
microfiche,  digital  disc  and  digital  tape.  Research  into  video  tape  and  video  disc 
recorders  determined  that  they  were  limited  to  recording  480  lines  of  video  image, 
whereas  the  image  processor  produced  512  lines  of  image.  In  order  to  use  either  of 
these  two  types  of  recording  methods,  a  converter  would  have  to  be  used,  which 
would  result  in  lost  information.  Also,  the  bandwidth  of  video  recorders  was  much 
lower  than  that  required  by  the  image  processor,  unless  very  high  quality  recorders 
are  used.  Image  retrieval  from  video  tape  is  difficult  since  images  have  to  be  read 
sequentially.  Images  stored  in  video  form  could  not  be  entered  into  the  image 
processor  and  therefore  could  not  be  used  to  recreate  the  image  process  that  leads 
to  the  pass/fail  decision. 
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Images  could  be  stored  on  microfiche  in  digital  format  without  loss  of  information. 
However,  once  an  image  is  put  on  microfiche,  there  is  no  way  to  enter  the  data 
back  into  the  system. 

Digital  discs  offer  fast  storage  and  easy  retrieval,  but  have  an  extremely  high  cost 
per  image.  In  contrast,  digital  magnetic  tape  has  a  very  low  cost  per  image. 
Digital  storage  on  tape  or  disc  permits  easy  re-entry  of  the  image  into  the  system 
and  retains  all  information.  Digital  tape  has  moderate  retrieval  time. 

Thus,  it  is  felt  that  image  storage  on  digital  tape  best  meets  storage  requirements. 


5.0  COMPUTER-AIDED  INSPECTION 


One  of  the  goals  of  this  project  has  been  to  demonstrate  a  prototype  computer- 
aided  inspection  system.  In  the  automated  non-film  radiographic  system,  the 
computer  controls  parts  positioning,  records  management,  and  the  functions  of  an 
inspection  plan. 

5.1  CONCEPT 

The  automated  system  provides  computer  control  of  the  manual  functions  that  are 
labor  intensive  or  sensitive  to  human  error.  These  primarily  fall  into  the  category 
of  data  recording  and  retrieval.  Examples  of  this  are:  inspection  plan  preparation 
and  dissemination,  inspection  results  recording  and  retrieval,  and  radiograph 
(image)  storage  and  retrieval.  A  successful  system  must  have  certain  basic 
capabilities.  Among  these  are:  simple  plan  preparation  and  modification  pro¬ 
cedures,  minimum  input  from  the  operator  (radiographer),  and  maximum  trace¬ 
ability  (retrieval  of  records,  re-creation  of  inspection,  etc.). 

5.2  SOFTWARE  DESIGN 

The  automated  inspection  system  software  design  is  detailed  in  Appendix  5.  The 
program,  termed  CAI,  for  computer  aided  inspection,  has  three  basic  functions: 
inspection,  planning  and  data  retrieval. 

The  key  to  a  useful  computer-aided  system  is  in  the  design  of  the  software  -  its 
flexibility  and  ease  of  operation  by  the  user.  The  easier  it  is  for  the  user,  the  more 
sophisticated  the  software  must  be.  This  prototype  system  has  been  designed  with 
enough  sophistication  for  demonstration  purposes  but  would  require  minor  improve¬ 
ments  for  use  in  a  real  environment.  An  overview  of  the  data  base  design  is  shown 
in  Figure  5.2-1.  The  inspection  plans  are  actually  composed  of  three  separate 
files:  first,  the  plan  main  records,  each  containing  primarily  a  list  of  test  names; 
second,  the  plan  test  file,  containing  records  with  the  basic  data  for  a  specific  test 
such  as  motor  and  position  parameters,  special  instructions  for  the  inspector  and 
names  of  image  processing  functions;  and  third,  image  processing  command  file 
with  each  record  containing  a  series  of  image  processing  commands. 


34 


Plan  pat* 


ni£  1i  PLAN  MAIN 

EXAMPLE  I  ROLAND)  ASSO®LY  VERIFICATION 


FILE  21  TEST  N/U* 
EXAMPLE  I  SAS  FLOW  SHIM 


FILE  3t  IMAGE  PROCESS  NAMES 
EXAM’LL  i  UPLACIAN 


RESULTS  DATA 


PART  NO. 

I MSP.  NAPE 
SERIAL  NO. 
INSPECTOR  I.D. 
PASS/FAIL 

[test' 


FILE  1«  RESULTS  MAIN 

EXAMPLE!  ROLAND/ FINAL/SN9-153  012880135003 


FILE  21  TEST  RESULTS 
COPT  OF  PLAN  AT  INSPECTION 

EXAMPLE!  ROLAND/ FI  NAL/SN9- 153/ WIRES 
012080135003 


HISTORICAL  DATA 


TAPE  MAIC 

IMAGE  1  NMC 

j 

“ 

IMAGE  N  NA/C 

- — 

m 

FILE  li  TAPE 

CXAPFLEi  ROLAND/ FINAL/SN9-153/WIRES 
012800135003 


FIGURE  5.2-1  COMPUTER-AIDED  INSPECTION  DATABASE 
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This  data  base  structure  allows  the  planner  to  create  a  new  plan  by  merely 
assembling  a  list  of  tests  in  the  order  desired.  The  computer  then  accesses  those 
tests  by  name  from  the  various  files  at  the  time  the  inspection  is  performed.  As 
the  inspection  is  performed,  the  test  results  are  saved  (pass-fail  and  inspector's 
comments)  along  with  a  copy  of  the  test  plan.  The  last  file  maintained  by  the 
system  is  the  image  storage  file,  a  cross  reference  of  magnetic  tape  names,  image 
names,  and  unique  inspection  names. 

An  overview  of  the  CAI  system  is  shown  in  Figure  5.2-2. 


PRINT  PLANS  PRINT  RESULTS 


FIGURE  5.2-2  COMPUTER-AIDED  INSPECTION  SYSTEM 


5.2.1  INSPECTION 


The  inspection  function  of  CAI  is  designed  around  a  of  data  base  management 
system  (DBMS),  in  this  case  Prime's  multiple  index  data  access  system  (MIDAS).  A 
CAI  system  was  designed  to  interact  with  an  inspector  who  has  no  knowledge  of 
image  processing.  The  operator  need  only  enter,  at  a  keyboard,  his  identification 
(Stamp  No.),  the  Part  No.  to  be  inspected,  name  of  the  inspection,  and  the  part's 
serial  number.  The  computer  will  access  a  data  base  containing  the  inspection  plan 
for  that  part.  That  plan  will  contain  all  of  the  necessary  data  to  run  the  test: 
coordinates  to  position  the  part,  functions  and  parameters  to  control  the  image 
processor,  and  instructions  for  the  inspector  indicating  the  key  inspection  criteria. 
The  inspector  then  enters  a  pass/fail  decision  and  any  observations  for  future 
reference.  These  data  are  then  saved  in  the  historical  data  file  and  a  copy  of  the 
image  is  recorded  on  digital  magnetic  tape. 

An  overview  of  the  inspection  function  of  the  system  is  shown  in  Figure  5.2.1- 1. 

5.2.2  PLANNING 

The  planning  functions  are,  like  the  inspection  functions,  designed  around  a  data 
base  management  system.  These  tasks  are  greatly  enhanced  by  a  screen  editing 
capability.  Screen  utilities  are  a  software  package  designed  to  allow  interactive 
data  entry.  In  this  case  a  planner  sits  at  a  CRT  terminal  and  modifies  existing 
plans  or  creates  new  plans  by  entering  data  into  specified  fields.  The  data 
transferred  to  the  data  base  is  controlled  by  the  screen  format  and  the  application 
program  (software).  Examples  of  these  screens  are  shown  in  Figure  5.2.2- 1. 

The  planning  package  provides  the  following  operations: 

1.  Create  new  plan  records. 

2.  Modify  existing  plan  records. 

3.  Make  new  records  from  old. 

4.  Delete  plan  records. 

5.  Display  or  print  plan  or  result  records. 

6.  Display  or  print  lists  of  existing  records. 
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FIGURE  5. 2. 2-1  PLANNING  SCREEN  FORMATS 


5.2.3  RETRIEVAL 


In  order  that  the  data  be  of  value,  there  must  be  a  means  of  retrieved  of  all  data 
and  re-creation  of  the  original  conditions  that  allowed  the  inspector  to  make  a  pass 
or  fail  decision.  To  provide  these  capabilities,  it  is  necessary  to  not  only  save  the 
image  and  results  of  inspection  but  also  a  copy  of  the  inspection  plan  at  the  time  of 
inspection.  This  is  necessary  because  of  the  possibility  that  the  inspection  plan 
records  may  be  modified  or  deleted  between  the  time  the  inspection  is  performed 
and  the  time  when  it  is  recreated.  These  minimum  capabilities  have  been  included 
in  the  prototype  computer  aided  inspection  system.  The  full  details  are  included  in 
Appendix  5. 

5.3  APPLICATION  TO  ROLAND  FINAL  INSPECTION 

A  test  plan  was  made  for  fined  assembly  verification  of  the  ROLAND  propulsion 
unit,  based  on  the  evaluation  of  image  processing  techniques  at  each  inspection 
point.  A  summary  of  the  optimum  image  processing  sequences  is  given  in  Figure 
5.3-1.  All  of  the  inspection  points  could  be  seen  with  real  time  X-ray,  but  image 
processing  greatly  improves  the  operators  ability  to  interpret  the  images.  Full 
grey  scale  utilization  is  useful  at  all  inspection  points,  and  can  be  achieved  by 
contrast  modification.  Some  areas,  such  as  those  with  screw  threads,  can  be  made 
sharper  by  edge  enhancement.  Missile  position  was  controlled  by  the  test  plan. 


Lead  mask  position  and  X-ray  energy  can  be  part  of  the  plan,  also.  Use  of  the 
prototype  test  plan  provided  data  for  flow  time  estimates.  The  inspection  of  each 
missile  should  take  approximately  20  minutes.  Since  the  ROLAND  missile  was  still 
in  the  development  stage  during  this  project,  inspection  requirements  may  change 
before  full  rate  production  is  initiated.  The  test  plan  would  then  be  changed 
accordingly. 
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INSPECTION  AREA 

PROCESSES  PERFORMED 

STC  IMAGE  PROCESSOR  COMMANDS 

1.  Inhibited  Grains 

Contrast  Modification 

$a>scale; 

2.  0  Rings 

Contrast  Modification 

$A>PLIM(BR=40  0  170  255); 

3.  Gas  Flow  Shim 

Contrast  Modification 
Gradient  Edge  Enhancement 

Contrast  Modification 

$a>scale; 

$a>sav>$b; 

$a>sav>$c; 

$C>C0NV(NR=3  NC=3 

w=v-i  ii-i-21-iii); 

$A  $C>ADD(*MINMAX)5 

$a  $c>sav; 
sa>scale; 

4.  Snap  Ring 

Contrast  Modification 

$a> scale; 

5.  Igniter  Wires 

Contrast  Modification 
Laolacian  Edge  Enhancement 

Contrast  Modification 

$a>scale; 

$a>sav>$b; 

$a>sav>$c; 

$C>C0NV(NR=3  NC=3 

W=/-l  -1  -1  -1  0  -1  -1  -1  -1 
$A  $C>ADD(*MINMAX>; 

$A  $c>sav; 

$a>scale; 

6.  Nozzles 

Contrast  Modification 
Gradient  Edge  Enhancement 

Contrast  Modification 

sa> scale; 

$a>sav>$b; 

$a>sav>$c; 

$C>C0NV(NR=3  NC=3 

W=/-1  11-1-21-111); 

$A  $C>ADD(*MINMAX) ; 

$A  $c>sav; 

$a>scale; 

Figure  5.3-1  ROLAND  Image  Processing  Sequence 
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6.0  COST  -  BENEFIT 


Real  time  X-ray  radiography  would  be  of  benefit  to  nearly  any  application.  The 
cost  and  flow  time  can  be  reduced  significantly  compared  to  film  radiographic 
techniques.  A  possible  cost  reduction  of  10:1  in  high  volume  applications  is 
anticipated.  Computer  aided  inspection  would  benefit  the  inspection  of  parts  from 
high  volume  production,  providing  a  potential  for  even  greater  savings. 

The  final  assembly  verification  of  the  ROLAND  missile  may  be  improved  by  a  cost 
reduction  of  about  S;  1  by  the  implementation  of  real  time  X-ray.  The  capital  costs 
of  implementation  of  the  system  described  in  this  project  are  listed  in  Figure 
6.0-1.  Using  these  values  and  applying  methods  of  investment  analysis  it  is 
possible  to  draw  conclusions  about  the  feasibility  in  a  specific  application.  Figures 
6.0-2,  and  6.0-3  illustrate  the  investment  analysis  results.  The  assumptions  used  in 
the  analysis  are  as  follows:  8  year  depreciation,  10%  tax  credit,  5.4%  sales  tax  and 
24  month  payback  (44.5%  rate  of  return). 

This  analysis  predicts  that  the  annual  savings  must  be  greater  than  $45,000  in  order 
to  achieve  a  two  year  payback  of  the  $70,000  capital  investment  required  for  real 
time  X-ray  equipment  only.  The  complete  system,  providing  image  processing  and 
computer  aided  inspection  as  well  as  real  time  radiography  costs  $300,000.  This 
expenditure  could  be  justified  if  an  annual  cost  savings  of  $193,000  could  be 
realized. 


EQUIPMENT 

CAPITAL 

THOUSANDS 

TOTAL 

I. 

Real 

-Time -X-Ray 

1. 

X-Ray  to  Visible  Light  Conversion 
and  Camera 

44 

2. 

Monitor 

5 

3. 

Room  Monitor 

1 

4. 

Part  Manipulator 

20 

SUBTOTAL 

70 

II. 

Image  Processing  and  Computer  Aided  Inspection 

1. 

Prime  550  Computer  with 

150 

1  Mbyte  Memory 

64  Mbyte  Disk 

Dual  Density  Tape  Drive 

2. 

Computer  Interfaces  for  Image  Processor 
and  Part  Manipulator 

10 

3. 

Image  Processor 

70 

230 

GRAND  TOTAL 

300 

Figure  6.0-1  Real  Time  X-Ray  System  Capital  Costs 


43 


LOW  COST  HICH  VOLUME  RADIOGRAPHY 


RATI  01  RETURN  UN  lh»[SI>;iNT 

FIGURE  6.0-3  NON-FILM  RADIOGRAPHY  WITH  COMPUTER- AIDED  INSPECTION 


7.0  CONCLUSIONS  AND  RECOMMENDATIONS 

7.1  REAL  TIME  X-RAY 

7.1.1  EQUIPMENT 

The  recommended  viewing  system  consists  of  a  high  energy  X-ray  source,  a 
selection  of  fluorescent  screens,  an  isocon  camera,  and  a  selection  of  lenses.  A 
part  manipulation  table  and  remote  control  capability  must  be  provided  to  realize 
the  advantages  of  real  time  radiography.  If  computer-aided  inspection  is  to  be 
implemented,  then  computer  control  of  part  positioning  is  required.  The  best 
image  storage  and  retrieval  medium  is  digital  magnetic  tape  for  systems  which 
include  a  computer  (for  either  image  processing  or  computer-aided  inspection). 
Otherwise,  a  high  quality  video  tape  system  is  satisfactory. 

7.1.2  APPLICATIONS 

Real  time  X-ray  can  easily  be  applied  to  assembly  configuration  inspections  of 
large,  complex  parts.  The  assembly  verification  of  the  ROLAND  missile  can  be 
performed  by  non-film  radiography  for  80%  less  cost  than  by  film  methods.  Other 
applications,  such  as  inspection  of  castings  and  welds,  require  higher  resolution 
than  the  present  system  can  provide. 

7.2  IMAGE  PROCESSING 

The  most  useful  image  processing  technique  is  contrast  modification.  Expanding 
the  range  of  intensities  will  improve  virtually  any  real  time  image.  Edge 
enhancement  methods  emphasize  details  in  some  of  the  inspection  areas,  and  the 
preferred  type  of  edge  enhancement  depends  upon  the  orientation  of  the  detail. 
Gray  level  slicing  is  an  effective  way  to  determine  the  parameters  for  contrast 
modification.  The  pseudocolor  operation  is  not  particularly  useful  for  this 
application. 
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The  image  processing  techniques  were  applied  to  each  ROLAND  missile  inspection 
point  to  determine  the  optimum  sequence  for  assembly  verification  of  the  missile. 
Although  there  were  no  critical  areas  that  could  not  be  seen  in  real  time,  image 
processing  did  improve  the  quality  of  the  images.  For  applications  in  which  image 
processing  allows  the  operator  to  see  a  detail  that  can  not  be  seen  in  real  time, 
then  image  processing  is  a  necessary  part  of  the  non-film  X-ray  system. 

7.3  COMPUTER-AIDED  INSPECTION 

The  computer-aided  inspection  scheme  saves  time  by  positioning  the  part  and 
performing  the  image  processing  sequence  automatically.  It  also  may  be  used  for 
data  base  management  of  records  and  storage  and  retrieval  of  images.  This  type  of 
automation  is  cost-effective  when  a  computer  is  required  for  the  image  processing, 
and  when  working  with  high  volume  production. 

7.4  ACCOMPLISHMENTS  AND  RECOMMENDATIONS  FOR  FUTURE  WORK 

This  project  has  produced  a  system  that  is  capable  of  meeting  the  inspection 
requirements  for  assembly  verification  of  large,  complex  parts.  Real  time  X-ray 
will  be  implemented  for  inspection  of  the  ROLAND  missile  propulsion  unit.  Cost 
savings  of  $1.1  million  per  10,000  missiles  could  be  realized. 

Future  efforts  should  be  directed  toward  expanding  the  applicability  of  non-film 
radiography.  Assembly  of  a  real  time  system  with  sufficient  resolution  to  inspect 
castings  and  welds  should  be  accomplished  expeditiously.  Another  possible 
application  is  evaluation  of  composites.  Further  development  of  non-film  X-ray 
could  lead  to  the  elimination  of  most  film-based  radiography.  The  potential  cost 
benefits  of  replacement  of  film  radiography  are  so  significant  that  development 
continuation  is  strongly  recommended  to  achieve  this  objective. 
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APPENDIX  1 


STC  M70  I/O  SCHEMATICS 


MODEL  70  CONTROL  SYSTEM 


Al-2 


MMMMMMHMiiM 


APPENDIX  2 

IMAGE  PROCESSOR  SOFTWARE, 
LOGIC  AND  CODE 


START  W7Q10 


* 


*  M70I0:  MODEL  70  10  DRIVER 


PAGE  0001 


*  M70I0: 
x 


MODEL  70  10  DRIVER 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 
x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X 

X 
X 
X 
X 
X 
* 

X 

X  M70I0  1 1FEB1980  11:00 

xCALL  M70I0< IOCB, FUNC, BUFFER, COUNT) 

x  IOCB  IS  AN  INTEGER  ARRAY,  WHERE 

x 

X 
X 
X 
X 
X 
X 
X 
X 


IOCB < 1 )  =  AN  INTEGER  TO  RETURN  TO  CALLING  PROGRAM 


I0CB(1 )-l 
IOCB  < 1 ) =2 
IOCB( 1 )  =  4 
IOCB ( 1 ) =8 


IS  A  GOOD  RETURN 
IS  NO  READY  SIGNAL  ON  GPIB 
IS  NO  5  VOLTS  FROM  MODEL  70 
IS  INTERRUPT  HAS  OCCURRED 


I OCB ( 2 )  =  THE  INTERRUPT  ENABLES 


X 

BIT 

1  = 

X 

BIT 

2= 

X 

BIT 

3= 

X 

BIT 

4  = 

X 

BIT 

5= 

X 

BIT 

6 - 

X 

BIT 

7  = 

X 

X 

BIT 

8= 

X 

BIT 

9= 

DONE 

X 

BIT 

10  = 

BUTTONPRESSED 

X 

BIT 

11  = 

CURSOR  MOVED 

X 

BIT 

12= 

VERTICAL  INTERVAL 

X 

BIT 

13= 

THING  COUNT  =  0 

X 

BIT 

14  = 

ATTENTION 

X 

BIT 

15  = 

TIMEOUT 

X 

at 

BIT 

16= 

+5V0LTS  FROM  M70 

X 

I OCB  <  3 ) 

SL 

VECTOR  ADDRESS 

x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


M70I0 

X 


IOCB ( 4 ) 
I OCB  <  5 ) 
IOCB(A) 


WORD  COUNT 
DMT  ADDRESS 


FUNC  IS  THE  OPERATION  TO  BE  PERFORMED 

FUNC  =  0  IMPLIES  WRITE  (COMPUTER  -->  M70) 

FUNC  =  1  IMPLIES  READ  (M70  -->COMPUTER  ) 

FUNC  =  2  IMPLIES  M70  MASTER  CLEAR 

BUFFER  IS  AN  INTERGER  ARRAY  THAT  EITHER  CONTAINS  THE  HEADER  TO  BE 
TRANSFERRED  OR  CONTAINS  THE  DATA  TO  OR  FROM  THE  M70 


COUNT 


IS  AN  INTEGER  REPRESENTING  THE  NUMBER  OF  WORDS  TO  BE  SENT  OR 
RECEIVED  BY  THE  M70 


ENT 

IeJ 

D64V 

EQU 

ARGT 


M70I0 » M70ECB 
SP2SEM 


* INITIALIZE  THE  CONTROLLER 

OCP  ' 1740  CLEAR  ALL 


THE  REGISTERS  ON  THE  BOARD 


A2-3 


*  *  *  *  *  *  * 


*  M70I0:  MODEL  70  10  DRIVER 


PAGE  0002 


* 

* 


OCP 


260 


ENABLE  INTERRUPTS 


*LOAD  THE  INTERRUPT  VECTOR 
* 

SP2INT  XAC  SP2INT 
LOA  SP2INT 
OTA  ' 1660 
BCNE  ERR 
LDL  =0 
STL  SP2SEM 

*SET  IOCBU)  EQUAL  TO  1 

* 

LT 

STA  10CB,*1 

"CHECK  IF  DEVICE  IS  ON 
* 

SKS  '60 

BCNE  DOFF 


GET  ADDRESS  OF  INTERRUPT  IN  SEGA 
OUTPUT  IT  TO  VECTOR  ADDRESS  REGISTER 


*SET  UP 
* 


BRANCH  TO  DOFF  IF  DEVICE  HAS  NO  +5  VOLTS 
INTERRUPT  ENABLES 


LDX  =1 
LDA  IOCBr  *1 
OTA  '560 
BCNE  ERR 
STA  CSREG 


LOAD  IOCB<  2  > 

OUTPUT  IT  TO  CONTROL/STATUS  REG 


< IF  NEITHER  THEN  WASTER  CLEAR) 


*DETERMINE  IF  READ  OR  WRITE 
* 

LDA  FUNC.*  LOAD  FUNC 

STA  FNTN 

BED  WRIT  BRANCH  TO  WRIT  IF  A  =  0 

ARS  1 

BEQ  READ  BRANCH  TO  READ  IF  A  -  I 

JMP  MC  OTHERWISE  JUMP  TO  MASTER  CLEAR 

*WRITE  OPERATION  (COMPUTER  TO  M70) 

WRIT 


ML  OOP 


* 

READ 


LDA 

COUNT.* 

LOAD  NUMBER  OF  WORDS 

STA 

INCT 

TCA 

2 ' S  COMPLEMENT 

STA 

WDCTM 

OTA 

'360 

OUTPUT  TO  WC  REG I ST El 

BCNE 

ERR 

LDX 

=0 

LOAD  INDEX  REGISTER 

STX 

XSAV 

LDA 

INH 

BUFFER, 

*1  LOAD  NEXT  WORD  IN  Bl 

OTA 

'1060 

OUTPUT  DATA 

BCNE 

ERR 

WAIT 

SP2SEM 

SUSPEND 

SKS 

'1060 

SKIP  IF  DFLG  IS  HIGH 

PExc  5SIfuRR 

LDA 

WDCTM 

A1A 

AOD  1  TO  WDCTM 

STA 

WDCTM 

IRX 

INCREMENT  INDEX 

STX 

XSAV 

BLT 

WLOOP 

BRANCH  IF  WDCTM  <  0 

JMP 

DONE 

OPERATION  <  M70 

TO  COMPUTER) 

LDA 

COUNT  ,* 

LOAD  NUMBER  OF  WORDS 

STA 

INCT 

TCA 

2 ' B  COMPLEMENT 

STA 

WDCTM 

OTA 

’  36D 

OUTPUT  TO  WORD  COUNT 
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*  M70I0?  MODEL  70  10  DRIVER 


PAGE  0003 


BCNE  ERR 

LDX  =0  SET  INDEX  =0 

STX  XSAV 
RLOOP  EQU  * 

m  ' 1 060  SEND  DCMD 

WAIT  SP2SEN  SUSPEND 

SKS  '1060  SKIP  IF  DFLG  IS  HIGH 

BCNE  INTERR  SOMETHING  ELSE  CAUSED  INTERRUPT 

INA  '1060  INPUT  DATA 

BCNE  ERR 

LDX  XSAV 

STA  BUFFER, *1  STORE  IT  IN  BUFFER 
LDA  WDCTM 

A1A  ADD  1  TO  WDCTM 

STA  WDCTM 

IRX  INCREMENT  INDEX 

STX  XSAV 

BLT  RLOOP  BRANCH  IF  WDCTM  <  0 

JMP  DONE 

•MASTER  CLEAR  OPERATION 

* 

MC  EQU  * 

OCP  '1160  OUTPUT  MASTER  CLEAR  TO  M70 

JMP  DONE 

* 

•  DONE  ROUTINE 

# 

DONE  EQU  * 

OCP  ' 660  DISABLE  INTERRUPTS 
LDX  =1 

INA  '560  INPUT  STATUS  REGISTER 

BCNE  ERR 

STA  IOCB, *1  IOCB ( 2 ) 

IRX 

INA  '1560  INPUT  VECTOR  ADDRESS 

BCNE  ERR 

STA  I OCB , *1  IOCB  <  3  > 

IRX 

INA  '360  INPUT  WORD  COUNT 

BCNE  ERR 

TCA  2 ’ S  COMPLEMENT 

STA  I0CB,*1  IOCB ( 4 ) 

IRX 

INA  '160  INPUT  DMT  ADDRESS 

BCNE  ERR 

STA  I OCB , *  1  I OCB  <  5 ) 

IRX 

INA  '1060  INPUT  INPUT  DATA 

BCNE  ERR 

STA  I OCB , *1  IOCB ( 6 ) 

DOFF  EQU  *  DEVICE  NOT  ON!!!!!! 

LDX  =0 

LDA  =6  SET  FLAG  TO  6 

STA  I0CB,*1  PUT  IT  IN  IOCB(l) 

JMP  DONE 

•  THIS  ERROR  MEANS  NO  READY  SIGNAL  ON  GPIB  FOR  INA  OR  OTA 

* 

ERR  EQU  * 

LDX  =0 

LDA  =2  SET  FLAG  TO  2 

STA  IOCB , *1  PUT  IT  IN  IOCB(l) 

PRTN 

•INTERRUPT  ERROR  ROUTINE 

INTERR  EQU  *  AN  INTERRUPT  HAS  OCCURED 

LDX  =0 
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*  M70I0:  MODEL.  70  10  DRIVER 


PAGE  0004 


LINK 

N70ECB  ECB  M70I0, , I0CB.4 
END 
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APPENDIX  3 

MOTOR  CONTROL  SCHEMATICS 


A3-1 


MOTION  CONTROL  SYSTEM 


A3-2 


ENCODER 


MOTOR  CONTROL  SYSTEM 

COMPUTER 

INPUTS /OUTPUTS 

TO  COMPUTER 

MANUAL  INPUT 


MOTOR  CONTROL 
PANEL  &  LOGIC 


ENCODER 

LOGIC 


CONTROL  ROOM 


VAULT 


AC  MOTOR 


CONTROLLERS 


A.C.  POWER 


ON"  RELAY 


MOTORS 

V  J 


f'SHAFM 

ENCODER 

V  J 


,3- 


MOTOR  CONTROL  PANEL  &  LOGIC 


A3-5 


COMPUTER  _ A  A _ CONTROL  PANEL 


CONTROL  PANEL  LOGIC /COMPUTER  INTERFACE 


50  CONDUCTOR  CABLE 

T - 


JOY  STICK 
AMPLIFIERS  & 
COMPARATORS 


PANELS 

MOTOR 

STATUS 

INDICATOR 

DRIVERS 


K 


K 


16  CONDUCTOR 
CABLES  (2) 


DIGITAL/ 

ANALOG 

CONVERTER 


LOCAL/ 

REMOTE 


16 

fcONDUCTfll 
CABLE 


d  MOTOR 
CONTROL/ 
COMPUTER 
INTERFACE 


PANEL/ 

COMPUTER 

MODE 

CONTROL 


ABORT 


16  CONDUCTOR 
CABLES  (2) 


CONTROL  BUS 


DATA  BUS 


o 

9 


ABORT/ RESET 


50  CONDUCTOR  CABLE 


ENCODER 

LOGIC 
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VAULT  A  A  MOTOR  CONTROL  LOGIC  BOARD 


CONTROL  PANEL  LOGIC/COMPUTER  INTERFACE 


MOTOR  CONTROL  LOGIC  BOARD 
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APPENDIX  4 


MOTOR  CONTROL  SOFTWARE, 
LOGIC  AND  CODE 


MOTION  -  MOTOR! S)  CONTROL 


SET  STATUS  =  0 
LOAD  MOTOR  NO. 


STORE 

IN 

STATUS 

^RETORN^ 


LOAD  DIRECTION 
AND  SPEED, 
CONFIGURE  WORD 


OUTPUT  WORD 
TO  REGISTER 


OUTPUT 
ABORT  RESET 


OUTPUT 
STROBE  PULSE 
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*  MOTION:  ENTRY  TO  MOTOR  DRIVER  IN  SYSTEM  RASE  OOOl 


*  MOTION:  ENTRY  TO  MOTOR  DRIVER  IN  SYSTEM 


* 

* 

* 

« 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


S*«*****««***«*********«*»tt«tt««****««*««***«****X*****«****«««**« 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 


CALL  HOTION(MOTOR#, DIRECTION, SPEED, STATUS) 

MOTOR*=  0  TO  7 

IF  BIT  1  SET  THEN  ISSUE  ABORT 

IF  BIT  1  AND  BIT  2  SET  THEN  ISSUE  ABORT  RESET 

MOO  IS  SLOT  ID  INQUERY 


DIRECTION 

0  =ONE  NAY 
1  -THE  OTHER  HAY 

SPEED 


0  THRU  : 177  (MUST  BE  >=  :20  FOR  MOTOR  TO  GO  ON) 

STATUS 


0=  OK 

1=  NOT  IN  REMOTE 

2=  NO  READY  SIGNAL  ON  GPIB 


•CALLED  BY:  POSINT,  MOTOR 
•FUNCTION:  MOVE  A  MOTOR 
•WRITTEN  IN  ASSEMBLY  LANGUAGE 

DYNT  MOTION 

SEG 

END 


« 

* 

< 


A4-4 


W  *  Me  • t  * 


POSIT:  ENTRY  FOR  ENCOOER  READOUT  PAGE  OOOl 


« 


*  POSIT:  ENTRY  FOR  ENCOOER  READOUT 

* 

•  lOmOHIHHOHIHIIHIHHHHIHiHHHimimilHimHH 


*  *  REAL  TINE  XRAY  -  AUTONATED  INSPECTION  SYSTEN  « 

*  *  VERSION  1.0  JUNE  1.1980  » 

*  *  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY  * 

*  *  « 


*  ********** *************** *******««* y******************** ********* 

» 

*  CALL  POSIT < ENCODER* . VALUE . ST ATUS >  29NAY1960 

*  ENCODER* 

* 

* 

* 

« 

* 

* 

*  VALUE* 

* 

* 

*  STATUS= 

* 

* 

* 

* 

•  ’CALLED  BY:  POSINT  AND  PING  AND  NOTOR  * 

*  ’FUNCTION:  READ  POSITION  OF  ENCODER  « 

«  ’WRITTEN  IN  ASSENBLY  LANGUAGE  ’ 

DYNT  POSIT 

SEG 

END 


0  TO  7  FOR  THE  NOTORS 

'100  IS  REQUEST  FOR  SLOT  ID.  WHICH  IS  RETURNED 
IN  STATUS 

IF  BIT  1  <NSB>  IS  SET  THEN  CLEAR  THE  ENCODER 

THE  RETURNED  VALUE  FRON  THE  ENCODER 

(UNLESS  A  REQUEST  WAS  NADE  FOR  SLOT  ID) 


0  =  A  GOOD  READ 

1  =  NOT  IN  RENOTE  NODE 

2  =  NO  READY  SIGNAL  ON  GPI6 
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t 
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APPENDIX  5 

COMPUTER-AIDED  INSPECTION  SOFTWARE. 
LOGIC  AND  CODE 


Al  -  AUTOMATED  INSPECTION  (TOP  LEVEL) 


^  START  ^ 


INSERT 

•  PCOH  •  RTCOM 

•  PTCOM  •  TCOM 

•  RCOH 

•  SVSCOM> CRTCTRL 


GET  FUNCTION 
FROM  OPERATOR 
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c 


SE 


I 


SB 


ARGUMENTS i  NONE 


CNEWC  -  CREATE  NEW  IMAGE  PROCESSOR  COMMAND 

ARGUMENTS i  1 
•  INTEGER*  ERROR 


CNEWP  -  CREATE  NEW  PLAN 

ARGUMENTS  >  1 

•  INTEGERS  ERROR 


CRPKEY  -  CREATE  PLAN  KEYWORD 

ARGUMENTS i  UO 

•  STRING:  1ST  LINE  OF  TEXT 

•  INTEGERS  LENGTH  OF  1ST  LINE 

•  STRINGS  2ND  LINE  OF  TEXT 

•  INTEGERS  LENGTH  OF  2ND  LINE 

•  STRINGS  3RD  LINE  OF  TEXT 

•  INTEGERS  LENGTH  OF  3RD  LINE 

•  STRINGS  4TH  LINE  OF  TEXT 

•  INTEGERS  LENGTH  OF  4TH  LINE 

•  STRINGS  KEYWORD 

•  INTEGERS  LENGTH  OF  KEYWORD 


CRRES  -  CREATE  RESULTS  RECORD 


ARGUFCNTSi 

•  STRING! 

•  STRING! 

•  INTEGER! 


SERIAL  NUMBER 
INSPECTOR  I.D. 
ERROR 


1 


DBPRM  - 


INSERT  DATA  BASE  PARAMETERS 

ARGUMENTS:  NONE 


DBPRM) 


D I  NS  P  -  DO  THE  INSPECTION  PER  PUN 

ARGUMENTS.*  5 

•  STRING:  INSPECTOR  I .D. 

•  STRING:  PART  NUMBER 

•  STRING:  TEST  I.D. 

•  STRING:  SERIAL  NUMBER 

•  INTEGER:  ERROR 


1 


DLTR  -  DELETE  RESULTS 

ARGUMENTS*  1 
•INTEGER:  ERROR 


DMORE  -  DO  YOU  WANT  TO  DO  MORE  ? 

ARGUMENTS:  1 
•  LOGICAL:  MORE 
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DLTT  -  DELETE  TEST  PLAN 

ARGUMENTS:  1 
•INTEGER:  ERROR 


DSPLD  -  DISPLAY  OR  PRINT  PLAN  AND  RESULT  DATA 

ARGUMENTS:  1 
•INTEGER:  ERROR 
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A 


5- 


TRY  A6AIN 
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UNCLASSIFIED  D180-26159-1  0RSMI/RS-CR-81-1  NL 


DSPR  -  DISPLAY  RESULTS 

ARGUMENTS :  1 

•  INTEGER!  REPORT  CHANNEL 


RPTGEN 


DSPPT  -  DISPLAY  ONE  TEST  PLAN 

ARGUMENTS i  1 
•  INTEGER i  SPOOL  CHANNEL 


DISPLAY 
THE  RECORD 


FREECH-  RETURN  THE  NUMBER  OF  AVAILABLE 
PRIMOS  CHANNELS 

ARGUMENTS i  2 

•INTEGERS  FREE  CHANNELS  REGUESTED 
•INTEGER:  ARRAY  SIZE 


GFUNCT  -  GET  FUNCTION,  MAIN  MENU 
GPFNCT  -  GET  PUN  FUNCTION 
GRFNCT  -  GET  RETRIEVAL  FUNCTION 

ARGUMENTS:  1 
•  INTEGER:  MENU 


GIIN  -  GET  INSPECTOR  INPUT 


ARGUMENTS: 

•  STRING: 

•  STRING: 

•  LOGICAL: 

•  LOGICAL: 

•  INTEGER: 


5 

INSPECTOR  I.D. 
SERIAL  NUMBER 
EGUIP.  INIT.  FLAG 
DEFAULT  PLAN  FLAG 
ERROR  CODE 
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FILE 


GPLNM  -  GET  PLAN  RECORD 

ARGUMENTS:  4 

•  INTEGER:  PART  NO. 

•  INTEGER:  TEST  ID 

•  LOGICAL:  DEFAULT  PLAN 

•  INTEGER:  ERROR 
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INITAL  -  SET  UP  TERMINAL  CODES  AND  OPEN  DATA  BASE  FILES 

ARGUMENTS:  1 
•  INTEGER:  ERROR 


I  NS  P  -  PERFORM  AN  INSPECTION 

ARGUMENTS:  2 

LOGICAL:  E&UIPMENT 
INTEGER:  ERROR 


INTAP  -  INITIALIZE  TAPE 


ARGUMENTS!  3 

•  INTEGER!  EGUIPMENT  INIT.  FUG 

•  INTEGER!  EGUIP.  IN  USE  FUG 

•  INTEGER!  ERROR 


CONTINUED  ON  NEXT  PAGE 
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INTAP  -  INITIALIZE  TAPE  (CONT'D) 


*5-32 


IE  I 

1 

ERRl 


INTIP 


INITIALIZE  TH 

ARGUMENTS! 

•  INTEGER! 


IMAGE  PRO 


OR 


VERIFY  IMAGE 
PROCESSOR 
IS  ON 


CMLDR 


LOAD  SYSTEM 
500  COMMON 


I CLEAN 


INITIAL  CLEAN 
OF  IMAGE 
DIRECTORY 
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MDFYP  -  MODIFY  PLAN 

MKFMC  -  MAKE  IMAGE  COMMAND  FROM  OLD 

MKFMP  -  MAKE  FROM  PLAN 

MKFMT  -  MAKE  FROM  TEST 

ARGUMENTS:  1 
•  INTEGER!  ERROR 

RVINSP  -  RECREATE  AN  INSPECTION 

ARGUMENTS!  NONE 

SVIMD  -  SAVE  IMAGE  ON  DISK 

ARGUMENTS.*  1 
•  STRING!  NAME 
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MOTOR  -  CONTROL  MOTION  OF  A  MOTOR 

ARGUMENTS!  A 
•INTEGER!  MOTOR  NUMBER 
•INTEGER!  MOTOR  SPEED 
•INTEGER!  POSITION 
•INTEGER!  ERROR 
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MOVTAP  -  VERIFY  AND  MOVE  TAPE 

ARGUMENTS i  3 

•  LOGICAL!  NEW  TAPE 

•  INTEGER:  FILE  NO.  TO  POSITION  TAPE 

•  INTEGER:  ERROR 


■40 
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PMOT  -  POSITION  MOTORS 

ARGUMENTS  t  NONE 
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RETR  -  RETRIEVE  HISTORICAL  RECORD 


ARGUMENTS:  2 
INTEGER:  ERROR 
LOGICAL:  EftUIPMENT 


W GRFNCT 


GET  MENU 


1  THRU  3 


INTIP 


YF  /MtSSAGE:  /X  > 

wW,  M>ETURN 


RMNAB  -  REMOVE  NON-ALP AHBETI CAL  CHARACTERS 

ARGUMENTS s  2 

•  STRING!  TEXT 

•  INTEGER!  NO.  OF  CHARACTERS 


RVTST  -  RECREATE  ONE  TEST  RESULT 

ARGUMENTS!  NONE 
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CONTINUED  ON 
NEXT  PAGE 


SPOUT  -  SPOOL  RETRIEVAL  INFORMATION 

ARGUMENTS:  2 

•  INTEGER:  SPOOL  CHANNEL 

•  STRING:  SPOOL  FILE  NAME 
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SVIMT  -  SAVE  IMAGE  ON  TAPE 

ARGUMENTS:  1 

•  STRING:  SYSTEM  IMAGE  NAME 


SVMRES  -  SAVE  RESULTS  -  MAIN  RECORD 


ARGUMENTS:  1 
•  INTEGER:  ERROR 


SVMRES) 


INSERT 

•  RCOM  •  PCOM 
i  SYSCOM>PARM.K 


ZERO  RECORD 


/  CRPKEY  \ 
CREATE  KEYWORD 


APDAT 
ADD  DATE 


/  ADDIS  \ 
,ADD  MAIN  RESULTS, 


9010 _ 

/MESSAGE: 
MIDAS  ERROR 


RETURN 


DO  "PNT 


'  ADD1$  > 

ADD  SECONDARY 
RESULTS 


9060 _ 

/MESSAGE: 

MIDAS  ERROR 


RETURN, 
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SAVE  RESULTS  OF  INSPECTION 

ARGUMENTS i  5 

•  LOG I CAL i  DEFAULT 

•  LOGICAL!  NO  TAPE 

•  INTEGER!  LOOP 

•  INTEGER!  RTKEY 

•  INTEGER!  ERROR 


SVTAPR  -  SAVE  THE  TAPE  RECORD  (MIDAS) 

ARGUMENTS i  1 
•  INTEGER i  ERROR 
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C  PCOM:  COMMON  FILE  FOR  PLAN  DATA-BASE 


PAGE  0001 


C  PCOM:  COMMON  FILE  FOR  PLAN  DATA-BASE. 

C 

C  a**************************************************************** 

C  * 

C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1.1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

0  * 

C  ***************************************************************** 

t; 

INTEGER  PS2W.PS2B.PNWT 

PARAMETER  PNWT=10  /*  No.  OF  WORDS  IN  TEST  NAME 

PARAMETER  PSZU=10*PNWT+21  /*  PLAN  RECORD  SIZE  IN  WORDS 

FARAMETER  PS2B=PS2W*2  /*  PLAN  RECORD  SI2E  IN  BYTES 

C 

INTEGER  PREC(F'SZW)  /*  PLAN  RECORD 

C 

INTEGER  PPN(iO)  /*  PLAN  PART  No. 

INTEGER  PIN(IO)  /*  "  INSPECTION  NAME 

INTEGER  PNT  /*  "  No.  TESTS 

INTEGER  PTNOl(PNWT)  /*  TEST  01  NAME 

INTEGER  PTN02(PNWT)  /*  TEST  02  NAME 

INTEGER  PTN031PNWT)  /*  TEST  03  NAME 

INTEGER  PTN04(PNWT )  /*  TEST  04  NAME 

INTEGER  PTN05(PNWT )  /*  TEST  05  NAME 

INTEGER  PTN061PNWT)  /*  TEST  06  NAME 

INTEGER  PTN07( PNWT )  /*  TEST  07  NAME 

INTEGER  PTN08(F'NWT )  /*  TEST  08  NAME 

INTEGER  PTN091PNWT)  /*  TEST  09  NAME 

INTEGER  PTNIO(PNWT)  /*  TEST  10  NAME 


PRIMARY  KEY?  CONDENSATION  OF  PART-NUMBER  AND  INSPECTION  NAME 
WITH  /  SEPARATING  THEM.  30  CHARACTERS  LONG. 

SECONDARY  KEY:  TEST  NAMES. 


C 

C 


C 


EQUIVALENCE  (PRFC(l),  F'PN)  /*  FLAN  PART  No. 

EQUIVALENCE  (PREC(ll),  PIN)  /*  "  INSPECTION  NAME 

EQUIVALENCE  (PREC(21).  PNT)  /*  "  No.  TESTS 

EQUIVALENCE  (PRECI22).  PTN01)  /*  TEST  01  NAME 

EQUIVALENCE  <PREC<32),  PTN02)  /*  TEST  02  NAME 

EQUIVALENCE  <PREC<42),  PTN03)  /*  TEST  03  NAME 

EQUIVALENCE  <PREC<52),  PTN04)  /*  TEST  04  NAME 

EQUIVALENCE  <PREC(62),  PTN05)  /*  TEST  05  NAME 

EQUIVALENCE  <PREC<72>.  PTN06)  /*  TEST  06  NAME 

EQUIVALENCE  <PREC<82),  PTN07)  /*  TEST  07  NAME 

EQUIVALENCE  <PREC<92).  PTN08)  /*  TEST  08  NAME 

EQUIVALENCE  (PREC(102),  PTN09)  /*  TEST  09  NAME 

EQUIVALENCE  (PREC(112),  PTN10)  /*  TEST  10  NAME 


DATA-BASE  NAME  AND  MIDAS  INDEX  POINTER  ARRAY 

INTEGER  PLNAN ( 16 )  /*  PLAN  OATA  FILE  NAME 

INTEGER  F'LLEN  /*  NAME  LENGTH 

INTEGER  PCHN  /*  CHAN.  TO  DATA  BASE  FILE 

INTEGER  PLARRU4)  /*  MIDAS  INFO  ARRAY 

INTEGER  PLERR  /*  MIDAS  ERROR  CODE 


EQUIVALENCE  (PLARR, PLERR) 

COMMON  /PCOM/  PREC.PLNAM.PLLEN. PCHN, PLARR 
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*  *  *  *  * 


r>or>o 


PTCOfl:  PLAN  TEST  COMMON  FILE 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


PTCOM:  PLAN  TEST  COMMON  FILE 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
$  ik 

x  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 

*  VERSION  1.0  JUNE  1,1980  * 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  * 

*  * 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX<XX<<XXXXX<XXXXXXXX<XXXXXXXXXXXXXX 

INTEGER  PTSZW,PTSZB,PNWH.PNWI,PNAOT,PNING 
PARAMETER  PNM0T=5  /*  No.  OF  MOTOR  COMMANDS 

PARAMETER  PNIMG=iO  /<  No.  OF  IMAGE  COMMANDS 

PARAMETER  PNUM=2  /<  No.  OF  WORDS  PER  MOTOR  COMMAND 

PARAMETER  PNWI =A1  /<  No.  OF  WORDS  PER  IMAGE  COMMAND 

PARAMETER  PTSZU^PNMOTxPNWM+PNrHGxPNW 1+166 

PARAMETER  PTSZB=PTSZW<?  /<  No.  OF  BYTES  IN  PLAN  TEST  RECORD 


INTEGER 

PTREC (PTSZW) 

INTEGER- 

PTNM(IO) 

/X 

TEST  NAME 

INTEGER 

PDA ( 39 ) 

/X 

DESCRIPTION  LINE  A 

INTEGER 

PDBL39) 

/X 

DESCRIPTION  LINE  B 

INTEGER 

PDC( 39) 

/X 

DESCRIPTION  LINE  C 

INTEGER- 

PDDL39) 

/x 

DESCRIPTION  LINE  D 

INTEGER 

PKXP 

/* 

MASK  X  POSITION 

INTEGER 

PKXS 

/< 

MASK  X  SPEED 

INTEGER 

PKYP 

/* 

MASK  Y  POSITION 

INTEGER 

PKYS 

/X 

MASK  Y  SPFFD 

INTEGER 

PMXP 

/X 

TABLE  X  POSITION 

INTEGER- 

PMXS 

/* 

TABLE  X  SPEED 

INTEGER 

PMYP 

/* 

TABLE  Y  POSITION 

INTEGER 

FMYS 

/X 

TABLE  Y  SPEED 

INTEGER 

PMRP 

/X 

ROTATE  POSITION 

INTEGER- 

PMRS 

/X 

ROTATE  SPEED 

INTEGER 

PIPAL40) 

/X 

IMAGE  PROCESS  A 

INTEGER- 

PNXA 

/X 

CODE  FOR  NEXT  OPERATION 

INTEGER 

PIPB ( 40 ) 

/X 

IMAGE  PROCESS  B 

INTEGER- 

PNXB 

/X 

CODE  FOR  NEXT  OPERATION 

INTEGER 

PIPC(40) 

/X 

IMAGE  PROCESS  C 

INTEGER 

PNXC 

/X 

CODE  FOR  NEXT  OPERATION 

INTEGER 

PIPDL40) 

/X 

IMAGE  PROCESS  D 

INTEGER- 

PNXD 

/X 

CODE  FOR  NEXT  OPERATION 

INTEGER 

PIPE(40) 

/X 

IMAGE  PROCESS  E 

INTEGER- 

PNXE 

/X 

CODE  FOR  NEXT  OPERATION 

INTEGER 

PIPF<  40) 

/X 

IMAGE  PROCESS  F 

INTEGER 

PNXF 

/X 

CODE  FOR  NEXT  OPERATION 

INTEGER 

PIPG(40) 

/X 

IMAGE  PROCESS  G 

INTEGER- 

PNXG 

/X 

CODE  FOR  NEXT  OPERATION 

INTEGER 

PIPH(40) 

/X 

IMAGE  PROCESS  H 

INTEGER 

F'NXH 

/X 

CODE  FOR  NEXT  OPERATION 

PRIMARY  KEY  =  PTNM  (1st. 

ELEMENT,  20  CHAR.) 

SECONDARY  KEY  =  NONE. 


FDU1 VALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 


(PTREC(l), 
(PTREC(ll), 
(PTRECL50) , 
(PTRECL89), 
(F’TRECL  128) 
(PTRECL167) 
<PTRFC( 168) 
(PTRECL 169) 
(PTREC  < 170 ) 
(PTRECL171 ) 
(PTREC (172) 
(PTRECL 173) 
(PTRECL 174 ) 
(PTRECL 175) 
(PTRECL 176) 
(PTRECL 177) 
(PTRECL217) 
(PTREC ( 218 ) 
(PTREC (258) 
(PTREC<259) 


F'TNM) 

/X 

PDA) 

/X 

PDB ) 

/X 

PDC ) 

/X 

PDD) 

/X 

PKXP) 

/X 

PKXS) 

/X 

PKYP) 

/X 

PKYS) 

/X 

PMXP) 

/X 

PMXS) 

/X 

PMYP) 

/* 

PMYS) 

/X 

PMRP) 

/» 

PMRS ) 

/* 

PIPA) 

/* 

PNXA) 

/* 

PIPB) 

/* 

PNXB) 

/X 

PIPC) 

/X 

TEST  NAME 

DESCRIPTION  LINE  A 

DESCRIPTION  LINE  B 

DESCRIPTION  LINE  C 

DESCRIPTION  LINE  D 

MASK  X  POSITION 

MASK  X  SPEED 

MASK  Y  POSITION 

MASK  Y  SPEED 

TABLE  X  POSITION 

TABLE  X  SPEED 

TABLE  Y  POSITION 

TABLE  Y  SPEED 

ROTATE  POSITION 

ROTATE  SPEED 

IMAGE  PROCESS  A 

CODE  FOR  NEXT  OPERATION 

IMAGE  PROCESS  B 

CODE  FOR  NEXT  OPERATION 

IMAGE  PROCESS  C 
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C  PTCOMs  PLAN  TEST  COMMON  FILE 


PAGE  0002 


C 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(PTREC(299) 
<PTREC<300) 
(PTREC<340) 
<PTREC<341 ) 
<PTREC<381) 
<PTREC(382) 
(PTREC(422) 
(PTREC(423) 
(PTREC<443) 
(PTREC(464 ) 
(PTREC(504) 


fPNXC) 
,PIPD) 
,PNXD> 
.PIPE) 
.  PNXE  > 
,PIPF) 
.PNXF ) 
.PIPG) 
.PNXG) 
.PIPH) 
.PNXH) 


/*  CODE 
/*  IMAGE 
/*  CODE 
/«  IMAGE 
/*  CODE 
/«  IMAGE 
/*  CODE 
/*  IMAGE 
/*  CODE 
/*  IMAGE 
/*  CODE 


FOR  NEXT 
PROCESS 
FOR  NEXT 
PROCESS 
FOR  NEXT 
PROCESS 
FOR  NEXT 
PROCESS 
FOR  NEXT 
PROCESS 
FOR  NEXT 


OPERATION 

D 

OPERATION 

E 

OPERATION 

F 

OPERATION 

G 

OPERATION 

H 

OPERATION 


DATA-BASE  NAME  AND  MIDAS  INDEX  POINTER  ARRAY 

INTEGER  PTNAM(U)  /*  PLAN  TEST  DATA  FILE  NAME 

INTEGER  PTLEN  /*  NAME  LENGTH 

INTEGER  PTCHN  /*  CHAN.  TO  DATA  BASE  FILE 

INTEGER  PTARRU4)  /*  MIDAS  INFO  ARRAY 

INTEGER  PTERR  /*  MIOAS  ERROR  CODE 


EQUIVALENCE  (PTARR, PTERR) 

COMMON  /PTCOM/  PTREC.PTNAM, PTLEN, PTCHN, PTARR 
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C  CCOMi  COMMAND  LIBRARY  COMMON  FILE 


PAGE  0001 


C 

C 

C 

c 

C 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 


CCOM:  COMMAND  LIBRARY  COMMON  FILE 
******** ********************************************************* 


*  * 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 

*  VERSION  1.0  JUNE  1,1980  * 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  * 

*  * 


***************************************************************** 
INTEGER  CNPROCrCNWl »CSZW,CSZB 

PARAMETER  CNPR0C=10  /*  NO.  OF  PROCESSES  FOR  THIS  COMMAND 

PARAMETER  CNWI=AO  /*  NO.  OF  WORDS  PER  PROCESS  LINE 

PARAMETER  CSZV=CNPROC*CNWI* 10  /*  NO.  OF  WORDS  PER  RECORD 

PARAMETER  CSZ8=CSZW*2  /*  NO.  OF  BYTES  PER  RECORD 

INTEGER  CREC(CSZW) 

INTEGER  CNAM(IO)  /*COMMAND  NAME 

INTEGER  PROCl(CNWI)  /*  FIRST  PROCESS  COMMAND  LINE 

INTEGER  PR0C2(CNWI )  /*  2ND  PROCESS  COMMAND  LINE 

INTEGER  PR0C3(CNUI )  /*  3RD  PROCESS  COMMAND  LINE 

INTEGER  F'ROCA ( CNUI )  /*  ATH  PROCESS  COMMAND  LINE 

INTEGER  PR0C5(CNWI )  /*  5TH  PROCESS  COMMAND  LINE 

INTEGER  PR0C6(CNWI )  /*  6TH  PROCESS  COMMAND  LINE 

INTEGER  FR0C7(CNUI)  /*  7TH  PROCESS  COMMAND  LINE 

INTEGER  PR0C8(CNWI )  /*  8TH  PROCESS  COMMAND  LINE 

INTEGER  PR0C9(CNUI)  /*  9TH  PROCESS  COMMAND  LINE 

INTEGER  PROCIO(CNWI)  /*10TH  PROCESS  COMMAND  LINE 

PRIMARY  KEY  =  CNAM  (1st.  ELEMENT,  2D  CHAR.) 

SECONDARY  KEY  =  NONE. 


EQUIVALENCE  (CREC(l),  CNAM) 
EQUIVALENCE  (CREC(ll),  PR0C1) 
EQUIVALENCE  (CREC(51),  PR0C2) 
EQUIVALENCE  (CRECL91),  PR0C3) 
EQUIVALENCE  (CREC(131),  F'ROCA) 
EQUIVALENCE  (CREC( 171 ) ,  PR0C5) 
EQUIVALENCE  (CREC (211),  PR0C6) 
EQUIVALENCE  (CREC(251),  PR0C7) 
EQUIVALENCE  (CREC(291),  PROCB) 
EQUIVALENCE  (CREC(331),  PR0C9) 
EQUIVALENCE  (CREC(371),  PR0C10) 


/*  COMMAND  NAME 
/*  FIRST  PROCESS  COMMAND  LINE 
/*  2ND  PROCESS  COMMANO  LINE 
/*  3RD  PROCESS  COMMAND  LINE 
/*  ATH  PROCESS  COMMAND  LINE 
/*  5TH  PROCESS  COMMAND  LINE 
/*  6TH  PROCESS  COMMANO  LINE 
/*  7TH  PROCESS  COMMAND  LINE 
/*  BTH  PROCESS  COMMAND  LINE 
/*  9TH  PROCESS  COMMAND  LINE 
/*  10TH  PROCESS  COMMAND  LINE 


DATA-BASE  NAME  AND  MIDAS  INDEX  POINTER  ARRAY 

INTEGER  CNNAN< 16 )  /*  COMMAND  DATA  FILE  NAME 

INTEGER  CLEN  /*  NAME  LENGTH 

INTEGER  CCHN  /*  CHAN.  TO  DATA  BASE  FILE 

INTEGER  CARR ( 1 A )  /*  MIDAS  INFO  ARRAY 

INTEGER  CERR  /*  MIDAS  ERROR  CODE 


EQUIVALENCE  (CARR, CERR) 

COMMON  /CCOM/  CREC, CNNAM, CLEN, CCHN, CARR 


A5-59 


nnnnnn 


C  RCOM:  COMMON  FILE  FOR  RESULTS  DATA-BASE  PAGE  0001 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 

c 


RCOM:  COMMON  FILE  FOR  RESULTS  DATA-BASE. 

*********************************** ****************************** 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

* 

***************************************************************** 


INTEGER  RSZW,RSZB,RNWT ,RNT 
PARAMETER  RNT=1Q 
PARAMETER  RNWT=25 
PARAMETER  RSZW=RNT*RNWT+42 
PARAMETER  RBZB=RSZW*2 


/*  No.  TESTS 

/*  No.  OF  WORDS  IN  TEST  NAME 
/*  RESULTS  RECORD  SIZE  IN  WORDS 
/*  RESULTS  RECORD  SIZE  IN  BYTES 


INTEGER 

RREC(RSZW) 

/* 

INTEGER 

RPN(IO) 

/* 

INTEGER 

RIN(IO) 

/* 

INTEGER 

RSNO(IO) 

/* 

INTEGER 

RIID(S) 

/* 

INTEGER- 

RDAT1 (6) 

/* 

INTEGER 

RPF 

/* 

INTEGER 

RTN01 (RNWT ) 

/* 

INTEGER 

RTN02(RNWT) 

/* 

INTEGER 

RTN03(RNWT> 

/* 

INTEGER 

RTN04(RNWT> 

/* 

INTEGER 

RTNOS(RNWT) 

/* 

INTEGER 

RTN06(RNWT ) 

/* 

INTEGER- 

RTN07(R'N«T) 

/* 

INTEGER 

RTNOB(RNWT) 

/* 

INTEGER- 

RTN09 (RNWT ) 

/* 

INTEGER 

RTNIO(RNUT) 

/* 

/*  RESULTS  RECORD 


ID 


PRIMARY  KEY:  CONDENSATION  OF  PART-NUMBER,  INSP.  NAME,  <  SERIAL  NO. 
SEPARATED  BY  - 


SECONDARY  KEY: 

TEST  NAMES 

EQUIVALENCE 

(RREC(l), 

RPN) 

/* 

RESULTS 

PART  No 

EQUIVALENCE 

(RRECUl), 

RIN) 

/* 

INSPECTION  NAME 

EQUIVALENCE 

<RREC(21). 

RSNO) 

/* 

SERIAL  No. 

EQUIVALENCE 

(RRECUl), 

RI  ID) 

/* 

INSPECTOR'S  ID 

EQUIVALENCE 

<RREC(36) , 

RDATI ) 

/* 

DATE- 

-TIME 

EQUIVALENCE 

( RREC ( 42 ) , 

RPF) 

/* 

PASS- 

-FAIL  CODE 

EQUIVALENCE 

(RREC(43) , 

RTN01 ) 

/* 

TEST 

01 

NAME 

EQUIVALENCE 

(RREC (68) , 

RTN02) 

/* 

TEST 

02 

NAME 

EQUIVALENCE 

(RREC(93) , 

RTN03) 

/* 

TEST 

03 

NAME 

EQUIVALENCE 

(RREC( 118) , 

RTN04) 

/* 

TEST 

04 

NAME 

EQUIVALENCE 

(RREC ( 143) , 

RTN05) 

/* 

TEST 

05 

NAME 

EQUIVALENCE 

(RREC( 168) , 

RTN06) 

/* 

TEST 

06 

NAME 

EQUIVALENCE 

(RREC( 193) , 

RTN07) 

/* 

TEST 

07 

NAME 

EQUIVALENCE 

(RREC(218> , 

RTN08) 

/* 

TEST 

08 

NAME 

EQUIVALENCE 

(RREC(243) , 

RTN09) 

/* 

TEST 

09 

NAME 

EQUIVALENCE 

(RREC(268), 

RTN10) 

/* 

TEST 

10 

NAME 

DATA-BASE  NAME 

AND  MIDAS  INDEX  POINTER 

ARRAY 

INTEGER  RLNAN(16> 
INTEGER  RLLEN 
INTEGER  RLCHN 
INTEGER  R'LARR(14) 
INTEGER  RLERR 


/*  RESULTS  DATA  FILE  NAME 
/*  NAME  LENGTH 
/*  CHAN.  TO  DATA  BASE  FILE 
/*  MIDAS  INFO  ARRAY 
/*  MIDAS  ERROR  COOE 


EQUIVALENCE  (RLARR, RLERR) 

COMMON  /RCOM/  RREC.RLNAM, RLLEN, RLCHN, RLARR 
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*  *  *  *  * 


C  RTCOM;  TEST  RESULTS  COMMON  FILE 


PAGE  0001 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 


RTCOM?  TEST  RESULTS  COMMON  FILE 

***x*«*«**«****«*««««**s**x***o«**«*«*«*«**»*«**«**«*o«****«*«* 


*  REAL  TIRE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 

*  VERSION  1.0  JUNE  1,1980  * 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  * 

*  * 


X**************************************************************** 

INTEGER  RTSZW,RTSZB,RNUN,RNWI,RNM0T,RN1NG 
PARAMETER  RNM0T=5  /*  No.  OF  MOTOR  COMMANDS 

PARAMETER  RNIMG=10  /*  No.  OF  IMAGE  COMMANDS 

PARAMETER  RNWM=2  /*  No.  OF  WORDS  PER  MOTOR  COMMAND 

PARAMETER  RNWI=41  /*  No.  OF  WORDS  PER  IMAGE  COMMAND 

PARAMETER  RTSZU=RNM0T*RNWM+RNING*RNUI+298 

PARAMETER  RTSZB=RTSZW*2  /*  No.  OF  BYTES  IN  PLAN  TEST  RECORD 

INTEGER  RTREC(RTSZW) 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER- 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER- 

INTEGER 


RTNM(IO) 

RDA(39) 

RDB(39) 

ROC (39) 

RDD ( 39 ) 

RKXP 

RKXS 

RKYP 

RKYS 

RMXP 

RMXS 

RMYP 

RMYS 

RMRP 

RMRS 

R I PA (40) 

RNXA 

RIPB( 40) 

RNXB 

RIPC(40) 

RNXC 

RIP0(40> 

RNXD 

RIPE(40) 

RNXE 

RIPF (40) 
RNXT 

RIPG(40) 
RNX6 
RIPH( 40) 
RNXH 

RTRKY ( 20) 
RTPF 

RTCNK40) 

RTCM2(40) 

RTTNM(IO) 

RTFNM 

RTIMN(25) 


/*  TEST  NAME 
/*  DESCRIRTION  LINE  A 
/*  DESCRIRTION  LINE  B 
/*  DESCRIRTION  LINE  C 
/*  DESCRIRTION  LINE  D 
/*  MASK  X  POSITION 
/*  MASK  X  SPEED 
/*  MASK  Y  POSITION 
/*  MASK  Y  SPEED 
/*  TABLE  X  POSITION 
/*  TABLE  X  SPEED 
/*  TABLE  Y  POSITION 
/*  TABLE  Y  SPEED 
/*  ROTATE  POSITION 
/*  ROTATE  SPEED 
/*  IMAGE  PROCESS  A 
/*  CODE  FOR  NEXT  OPERATION 
/*  IMAGE  PROCESS  B 
/*  CODE  FOR  NEXT  OPERATION 
/*  IMAGE  PROCESS  C 
/*  CODE  FOR  NEXT  OPERATION 
/*  IMAGE  PROCESS  D 
/*  CODE  FOR  NEXT  OPERATION 
/*  IMAGE  PROCESS  E 
/*  CODE  FOR  NEXT  OPERATION 
/*  IMAGE  PROCESS  F 
/*  CODE  FOR  NEXT  OPERATION 
/*  IMAGE  PROCESS  G 
/*  CODE  FOR  NEXT  OPERATION 
/*  IMAGE  PROCESS  H 
/*  CODE  FOR  NEXT  OPERATION 
/*  RESULTS  KEY 
/*  PASS-FAIL  CODE 
/*  COMMENT  LINE  1 
/*  COMMENT  LINE  2 
/*  TAPE  NAME 
/*  FILE  No. 

/*  IMAGE  NAME 


PRIMARY  KEY  =  SAME  AS  TEST  NAME  FROM  RREC.  AND  RTIMN 
SECONDARY  KEYS  =  NONE. 


EQUIVALENCE  (RTREC(l),  RTNM)  /*  TEST  NAME 

EQUIVALENCE  (RTREC(ll),  RDA)  /*  DESCRIPTION  LINE  A 

EQUIVALENCE  (RTREC(50),  RDB)  /*  DESCRIPTION  LINE  B 

EQUIVALENCE  (RTREC(89>,  RDC)  /*  DESCRIPTION  LINE  C 

FQUIVALFNCE  <RTREC( 128) »RDD )  /*  DESCRIPTION  LINE  D 

EQUIVALENCE  < RTREC (167) ,RKXP)  /*  MASK  X  POSITION 

EQUIVALENCE  (RTREC(168) ,RKXS)  /*  MASK  X  SPEED 

EQUIVALENCE  (RTREC( 169) , RKYP)  /*  MASK  Y  POSITION 

EQUIVALENCE  (RTREC(170),RKYS)  /*  MASK  Y  SPEED 

EQUIVALENCE  <RTREC( 171 >, RMXP)  /*  TABLE  X  POSITION 

EQUIVALENCE  (RTREC< 172) , RMXS)  /*  TABLE  X  SPEED 

EQUIVALENCE  (RTREC( 173) , RMYP)  /*  TABLE  Y  POSITION 

EQUIVALENCE  <RTREC(174) »RRYS)  /*  TABLE  Y  SPEED 
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C  RTCOM:  TEST  RESULTS  COMMON  FILE 


PAGE  0002 


C 

C 


C 


EQUIVALENCE  <RTREC<175) ,RMRP)  /«  ROTATE  POSITION 
EQUIVALENCE  <RTR£C< 176) ,RMRS>  /*  ROTATE  SPEED 

EQUIVALENCE  <RTREC<177) ,RIPA)  /*  IMAGE  PROCESS  A 

EQUIVALENCE  (RTREC(217) >RNXA)  /*  CODE  FOR  NEXT  OPERATION 

EQUIVALENCE  (RTREC<218) ,RIPB>  /«  IMAGE  PROCESS  D 

EQUIVALENCE  (RTREC(2S8) »RNXB)  /*  CODE  FOR  NEXT  OPERATION 

EQUIVALENCE  <RTREC<25?> »RIPC )  /«  IMAGE  PROCESS  C 

EQUIVALENCE  <RTREC<2?9> ,RNXC>  /*  CODE  FOR  NEXT  OPERATION 

EQUIVALENCE  <RTREC<300> ,RIPD)  /*  IMAGE  PROCESS  D 

EQUIVALENCE  <RTREC<3<0J ,RNXD>  /»  CODE  FOR  NEXT  OPERATION 

EQUIVALENCE  <RTREC<3<1 ) , RIPE )  /*  IMAGE  PROCESS  E 

EQUIVALENCE  <RTREC<381 ) >RNXE)  /*  CODE  FOR  NEXT  OPERATION 

EQUIVALENCE  <RTREC(382 ) .RIPF )  /*  IMAGE  PROCESS  F 

EQUIVALENCE  (RTRECU22)  ,RNXF>  /*  CODE  FOR  NEXT  OPERATION 

EQUIVALENCE  <RTREC<<23> ,RIPG)  /«  IMAGE  PROCESS  6 

EQUIVALENCE  <RTREC<<63J ,RNXG>  /«  CODE  FOR  NEXT  OPERATION 

EQUIVALENCE  <RTREC<<6<).RIPH)  /*  IMAGE  PROCESS  H 

EQUIVALENCE  (RTREC(50<) >RNXH)  /*  CODE  FOR  NEXT  OPERATION 

EQUIVALENCE  (RTREC<505) .RTRKY)  /*  KEY  FOR  RESULTS  RECORD 
EQUIVALENCE  <RTREC(525> ,RTPF)  /*  PASS-FAIL  CODE 
EQUIVALENCE  (RTREC<526> ,RTCM1 )  /*  COMMENT  1 

EQUIVALENCE  <RTREC<566> .RTCM2J  /*  COMMENT  2 

EQUIVALENCE  <RTREC<606) .RTTNM)  /*  TAPE  NAME 

EQUIVALENCE  (RTREC(616>  >RTFNM)  /*  FILE  N 

EQUIVALENCE  (RTREC<617) >RT1MN)  /•  IMAGE  NAME 


DATA-BASE  NAME  AND  MIDAS  INDEX  POINTER  ARRAY 


INTEGER  RTNAM< 16) 
INTEGER  RTLEN 
INTEGER  RTCHN 
INTEGER  RTARR<1<> 
INTEGER  RTERR 


/»  PLAN  TEST  DATA  FILE  NAME 
/*  NAME  LENGTH 
/»  CHAN.  TO  DATA  BASE  FILE 
/*  MIDAS  INFO  ARRAY 
/*  MIDAS  ERROR  CODE 


EQUIVALENCE  <RTARR. RTERR) 

COMMON  /RTCOR/  RTREC.RTNAM. RTLEN. RTCHN, RTARR 
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non  ooooot-i 


C  TCOfl:  COMMON  FILE  FOR  TAPE  DATA-BASE 


PAGE  0001 


C 

c 

c 

c 


TCOfl:  COMMON  FILE  FOR  TAPE  DATA-BASE. 


INTEGER  TSZW.TSZB.TNWT 
PARAMETER  TNWT=25 
PARAMETER  TSZW=TNWT*52+11 
PARAMETER  TSZB=TSZW*2 


INTEGER  TREC(TSZW) 

INTEGER  TNAM(IO) 
INTEGER  TNFL 
INTEGER  TIMNA(TNWT) 


/*  No.  OF  WORDS  IN  TEST-RESULTS  NAME 
/*  TAPE  RECORD  SIZE  IN  WORDS 
/«  TAPE  RECORD  SIZE  IN  BYTES 


/*  TAPE  RECORD 
/*  TAPE  NAME 

/»  No.  FILES  RECORDED  ON  THIS  TAPE 
/*  IMAGE  A  NAME 


PRIMARY  KEY:  TAPE  NAME 

SECONDARY  KEY:  IMAGE  NAME  =  TEST-RESULTS  KEYWORD. 


EQUIVALENCE  (TREC(l),  TNAM) 
EQUIVALENCE  ( TREC( 11 ) , TNFL ) 
EQUIVALENCE  <TREC< 12) .TIMNA) 


/*  TAPE  NAME 

/*  No.  OF  ENTRIES  THIS  FILE 
/*  IMAGE  NAME 


C 

C 


DATA-BASE  NAME  AND  MIDAS  INDEX  POINTER  ARRAY 


INTEGER  TPNAM( 16) 
INTEGER  TPLEN 
INTEGER  TCHN 
INTEGER  TPARR( 14) 
INTEGER  TPERR 
INTEGER  TFCNT 


/*  TAPE  DATA  FILE  NAME 
/»  NAME  LENGTH 
/*  CHAN.  TO  DATA  BASE  FILE 
/*  MIDAS  INFO  ARRAY 
/*  MIDAS  ERROR  CODE 

TAPE  FILE  COUNT  (PRESENT) 
TFCNT  =  1  FOR  1st  FILE. 


/* 

/* 


EQUIVALENCE  (TPARR. TPERR) 

COMMON  /TCOfl/  TREC » TPNAM. TPLEN r TCHN . TPARR r TFCNT 


C  AH  AUTOMATED  INSPECTION  -  TOP  LEVEL 


PAGE  OOOl 


C  Al:  AUTOMATED  INSPECTION  -  TOP  LEVEL 
C 

C  ******#****»*#*****#*#*«***#***********##***«#*****#**********#** 
C  * 

C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  ****************************** ************************** «#**#**# 

c 

C  *THIS  IS  THE  MAIN  PROGRAM  FOR  THE  AUTOMATED  INSPECTION  SYSTEM 

C  ^FUNCTION:  1.  OPEN  OATA  8ASE  FILES 

C  *  2.  INITIATE.  INSPECTION.  PLANNING.  OR  RETRIEVAL 

C  *  3.  OR  CLOSE  OATA  BASE  FILES  A NO  EXIT 

C 

♦INSERT  PCOM 
♦INSERT  PTCON 
♦INSERT  RCOM 
♦INSERT  RTCON 
♦INSERT  TCOM 
♦INSERT  SYSCOM>CRTCTRL 
C 

C0MM0N/0REZ/ZER0(8191) 

C 

LOGICAL  EQUIP 
C 

EQUIP  =  .FALSE. 

C 

C  SET  UP  TERMINAL  CODES,  OPEN  DATA  BASE  FILES 

C - 

CALL  INITAL (IERR) 

IF  (IERR  .NE.  0)  CALL  EXIT 
C 

C  GET  FUNCTION:  INSPECT .PLAN, RETREIVE  HISTORY, CLOSE  FILES 
C - 

10  CALL  GFUNCT (MENU) 

IF  (MENU  .EQ.  0)  GOTO  9S0 
GOTO  (20,30,40) ,  MENU 
GOTO  950 
C 

C  PERFORM  INSPECTION 
C - 

20  CALL  INSP(EQUIP.IERR) 

IF  (IERR)  950,10,950 
C 

C  PLAN 
C - 

30  CALL  PLAN(IERR) 

IF  (IERR)  950,10,950 
C 

C  RETRIEVE  HISTORY 

C . . 

40  CALL  RETR(EQUIP.IERR) 

IF  (IERR)  950,10,950 
C 

C  CLOSE  DATA  BASE  FILES 

C - 

950  CALL  CLOALL 

C 

C  EXIT 

C - 

1000  CALL  EXIT 

FMO 


*  *  *  *  ****** 


C  APDAT.'  APPEND  DATE  TO  KEYWORD 


C  APDAT:  APPEND  DATE  TO  KEYWORD 
C 

C  ***«**»««««******«***«***«••«***«*««**«*«**•«**««***•****««****«* 


C  #  ^ 

C  *  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 

C  *  VERSION  1.0  JUNE  1.1980  * 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  « 

C  *  * 

C  *##***##*********#*#******«*«*«****«*******#**«**«««#*«#**«##**#* 

c 

C  ^GENERAL  PURPOSE  SUBROUTINE  TO  APPEND  DATE  AND  TIME  TO  A  STRING  * 

C  *DATE/TIME  IS  FORM!  MMDDYYHHMMSS  * 

C 


SUBROUTINE  APDAT<KEY.LEN) 

C 

♦INSERT  SYSCOM>AiKEYS 
C 

REAL*8  DD.DT .DUMMY (2) 

DIMENSION  IDT(8) 

INTEGER  BIAS.BI 
EQUIVALENCE  (IDT. DO) 

EQUIVALENCE  (IDT(5),DT> 

C 

DD  =  DATEtA(DUMMY)  /*GET  DATE 

TI  ■  TIMEiA(DT)  /*GET  TIME 

CALL  RMNAB( IDT .16)  /*  REMOVE  NON-ALPHABETICAL  CHARACTERS 

IE  =  LEN 

IS  =  IE  -  11 

IF  (IS  .LE.  0)  RETURN 

CALL  MSUBIA( IDT > 12. 1 > 12.KEY .LEN. IS. IE )  /«  APPEND  THE  DATE 

RETURN 

END 


C  CLOALL:  CLOSE  ALL  OPEN  CHANNELS 


C  CLOALL:  CLOSE  ALL  OPEN  CHANNELS 
C 

C  *#****«**********»#**#*#*»»»**«***«*»*««#*****«********#********* 


C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 
C  *  VERSION  1.0  JUNE  1.1980  * 
C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  * 
C  *  * 


C  a**************************************************************** 
SUBROUTINE  CLOALL 
♦  INSERT  SYSCONWKEYS 


DO  100  ICH=1 .62 

IE  (.NOT.  UNIT9A(ICH) )  GOTO  100 
IF  (.NOT.  CLOSM(ICH))  GOTO  100 
100  CONTINUE 

RETURN 

END 
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c 


CNEUC:  CREATE  NEW  IMAGE  PROCESSOR  CO  PAGE  OOOl 


C  CNEUC:  CREATE  NEU  IMAGE  PROCESSOR  COMMAND 

C 

C  ****#«»#«**********#**«**«*»****#*##********«»*##*«*«##*#**»***** 

C  * 

C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1.1980 

C  *  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  *#*#****************«****<#**«*«***#*##***«***********»*****«*«« 

C 

C  JfCALLED  FROM:  PLAN 

C  *  1.  INSERT  COMMAND  FILE  IN  DATA  BASE 

C 

SUBROUTINE  CNEUC(IER) 

•INSERT  CCOM 
•INSERT  SYSCOM>PARM.K 
•INSERT  SYSCOM>A*KEYS 
C 

INTEGER  T APR ( CSZ  U ) . NAME (16) 

C 

DATA  NAME  /'DEMO. SCREEN. FT  ’/ 

C 

CALL  TONI 
C 

C  Open  s  channel  to  the  screen  tear  late  file 

C - - - - - 

CALL  V0PEN*(NAME,32.1,IFCH,IER)  /*  OPEN  FOR  READ 

IF  ( IER  .NE.  0)  GOTO  9200 
C 

IS  =  318 
IE  =  330 

NEUSCR  =  2  /*  DO  NOT  ERASE  THE  SCREEN  TO  START 

C 

C  Clear  record  buffer 

C- . 


10 

c 

CALL 

ZFIL(TRPR.CSZB.O) 

c 

20 

CALL 

CALL 

PEDITdFCH.TMPR,  IS.  IE. NEUSCR) 
ZNVO ( TMPR . CREC . CSZB ) 

c 

C  Check  to  see  if  record  alreadw  exists. 

C - - - - - - 

IFLAG  ■=  FL*RET 

CALL  NEXT* ( CCHN . CREC . CNAM . CARR .IFLAG . *200 , 0 , 0 , 0 . 0 ) 
CALL  TONL 

CALL  TNOU  (’COMMAND  ALREADY  EXISTS’. 24) 

CALL  TONL 
60  TO  300 
C 

C  Store  the  record 

C - - — 

200  CALL  ADD1* (CCHN .CREC. CNAM. CARR. IFLAG. *9000 .0.0. 0.0) 
C 

C  MORE? 

C~— . — 

IER  *  0 

300  IF  (YSNO*A( ’More’ >4.A*DN0) )  GOTO  20 
C 

C  CLOSE  THE  SCREEN  CHANNEL  NO. 

C - - - . 

400  CALL  CL0S4AUFCH) 

RETURN 

C 

9000  IER  =  CERR 

URITE  (1.9001)  CERR.CNNAM 

9001  FORMAT ( ’MIDAS  ERROR  »’,I3.’  KEY  =  ’.15A2) 

GOTO  400 

C 

C 

9200  URITE  (1.9201)  IER. NAME 

9201  FORMAT( ’ERROR  ’.13.’.  OPENING  FILE  ’.14A2) 

RETURN 
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******  ** 


n 


C  CNEWCi  CREATE  NEW  IMAGE  PROCESSOR  CO  PA6E  0002 


END 

C 
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c 


CNEWP:  CREATE  NEW  PLAN  ENTRY 


PAGE  0001 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


CNEWPJ  CREATE  NEW  PLAN  ENTRY 

*  REAL  TINE  XRAY  -  AUTORATED  INSPECTION  SYSTER 

»  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

* 

*******«**«**********«******«*****««•**«****««*«*««**««•*«««*«*«« 

•CALLED  BY:  PLAN  • 

•FUNCTION:  1.  GET  PARTN,INSP  NARE, TEST  NARES  FROR  OPERATOR 

•  2.  CREATE  PLAN  KEYWORD 

•  3.  STORE  PLAN  IN  DATA  BASE 

SUBROUTINE  CNEWP (IER) 


•INSERT  PCOn 
•INSERT  SYSCOfl>PARR.K 
♦INSERT  SYSCOR>A»KEYS 
C 


« 

« 


C 

c 

c 

c 

c 


c 


c 

c 

c- 

10 

c 

c 

20 

c 

c 

c 

c- 


26 

C 

27 
31 
C 

28 


29 

30 
C 
C 


C 

C 

C 

c 


INTEGER  TRPR(PSZW) ,  NARE (16) 

INTEGER  KEY0(15>  /«  PRIRARY  KEY 

DATA  NARE  /’DERO. SCREEN. FT  ’/ 

CALL  TONL 

Open  3  channel  to  the  screen  template  file 

CALL  V0PEN»(NARE,32.1,IFCH.IER)  /•  OPEN  FOR  READ 

IF  (IER  .NE.  0)  GOTO  9200 

IS  =  50 
IE  -  66 

NEWSCR  *  2  /«  DO  NOT  ERASE  THE  SCREEN  TO  START 

Clear  record  buffer 

CALL  ZFIL (TRPRiPSZBiO) 


CALL  PEOIT(IFCH,TRPR,IS,IE,NEWSCR) 
CALL  ZRVD  <  TRPR , PREC , PSZB  > 


Check  for  internal  consistency 

IF  (PNT  .LE.  10)  GOTO  27 
WRITE  (1,26) 

FORRAT (/, ’ 10  IS  RAX1RUR  NURBER  OF  TESTS!',/) 

GOTO  20 

IF  (TRPRdl)  .NE.  0)  GOTO  28 
WRITEd  ,31 ) 

FORRATdX,' INSPECTION  NARE  RANOATORY!') 

GOTO  20 

DO  30  1*1 , PNT 

IBIAS  =  22  *  ( 1-1 >*PNWT 
IF  (TRPRdBIAS)  .NE.  0)  GOTO  30 
WRITE  (1,29) 

FORRAT (/,’ NURBER  OF  TESTS  NOT  CONSISTENT!’,/) 
GOTO  20 
CONTINUE 

Create  a  priaary  keyword. 

CALL  CRPK£Y(PPN,20,PIN,20,0,0,0,0,KEYO,30) 

LEN  *  LSIZE(KEY0,30) 

Check  to  see  if  record  already  exists. 
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*  m  *  *  4c 


C  CNEWP!  CREATE  NEW  PLAN  ENTRY  PAGE  0002 

C  ALLGNEXH  (PCHN .  PREC .  KE  Y0 .  PLARR , IFLAG , <200 . 0 . 0. 0 , 0) 

CALL  TNOU  ('PLAN  NUBBER  ALREADY  EXISTS’. 26) 

CALL  TONL 
60  TO  300 
C 
C 
C 

C  Store  the  record 

200  CALL  ADD1<(PCHN.PREC.KEY0. PLARR. IFLAG. <9000, 0.0. 0.0) 

C  Insert  the  secondary  keys 

C  ~  I BIAS  =  22 

IFLAG  =  FL<USE 
C 

°°CALL  ADDli (PCHN.KEYO. PREC(IBI AS). PLARR. IFLAG. <9100. l.( 
IBIAS  =  IBIAS  +  PNWT 
220  CONTINUE 

C 

C  BORE? 

300  IF  (YSNO<A( 'Bore' «4»A<DN0) )  GOTO  20 

C  CLOSE  THE  SCREEN  CHANNEL  NO. 

- - 

400  CALL  CLOS<A( IFCH) 

RETURN 

9000  IER^-  plerr.KEYO 

9001  FORBAT ( ’BIDAS  ERROR  =’.I3,’  KEY  =  ’.15A2) 

GOTO  400 

C 

9100  IER  =  PLERR 

wr!t!  7i"Sof > Vlerr. jprecj i ) . i=ib; as, jbias. 

9101  FORBAT( 'BIDAS  ERROR  =’,13.'  KEY  *  '.15A2> 

GOTO  400 

C 

9200  URITE  <1.9201)  IER.NABE  , 

9201  FORBAT ( 'ERROR  '.13.'.  OPENING  FILE  ’.16A2) 

RETURN 

C 

9900  FORBAT  (’ERROR  =  M3) 

END 

C 


.0.0) 
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c 


CNEWT:  CREATE  NEW  TEST  ENTRY 


PAGE  0001 


C  CNEWT:  CREATE  NEW  TEST  ENTRY 

C 

C  **********#*****«**********«*«#*#***#»«**«**#*****«***«»«#******* 

c  * 

C  *  REAL  TINE  XRAY  -  AUTONATED  INSPECTION  SYSTEN 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  if*************************************************************** 

c 

C  ^CALLED  FROH:  PLAN 

C  ^FUNCTION:  1.  GET  TEST  NAHE,  DESCRIPTION,  NOTOR  POSITIONS, 

C  *  AND  INAGE  PROCESSES  FORN  PLANNER 

C  *  2.  INSERT  TEST  IN  OATA  BASE 

C 

SUBROUTINE  CNEWT (IER) 

(INSERT  PTCON 
(INSERT  SYSCON>F'ARN.K 
(INSERT  SYSCO«>A(KEYS 
C 


C 

C 

C 

C 

C- 


C 

C 

C- 

10 

C 

C 

20 


INTEGER  THPR(F'TSZW)  > NAHE  (16) 

INTEGER  KEYO(IO)  /*  PRIHARY  KEY 

DATA  NAHE  /'DEHO. SCREEN. FT  ’/ 

CALL  TONL 

Open  a  channel  to  the  screen  teurlate  file 

/*  OPEN  FOR  READ 


CALL  VOPENt (NAHE ,32, 1 , IFCH, IER) 
IF  (IER  .NE.  0)  GOTO  9200 


IS  =  75 
IE  =  98 
NEUSCR  =  2 


/*  DO  NOT  ERASE  THE  SCREEN  TO  START 

Clear  record  buffer 

CALL  ZFIL(THPR,PTSZB,0) 


C 

1098 

i 

C 


CALL  PED1T ( IFCH, THFR, IS, IE ,NEWSCR) 
CALL  ZHVD(THPR» PTREC, PTSZB) 

WRITE ( 1 , 1098)PTNH  /*  *«*CHECKOUT«** 

FORHAT < IX, 'PTNH  FROH  CNEWT3’ , 10A2) 

Check  to  see  if  record  alreadw  exists. 


1FLAG  3  FLtRET 

CALL  NEXT( ( PTCHN , PTREC , PTNH , PT ARR , I FLAG , (200 , 0 , 0 , 0 , 0 ) 
CALL  TONL 

CALL  TNOU  ('PLAN  TEST  ALREADY  EXISTS’ ,24) 

CALL  TONL 
GO  TO  300 
C 

C  Store  the  record 

C - - 

200  CALL  ADDlt(PTCHN, PTREC, PTNH, PTARR.IFLAG, (9000, 0,0, 0,0) 

C  CALL  TDUHP( PTREC, PTSZB) 

C 

C  HORE? 

C - 

IER  3  0 

300  IF  (YSNO(A( ’Hore’ ,  4,A(DN0) )  60T0  20 
C 

C  CLOSE  THE  SCREEN  CHANNEL  NO. 

C . - - - 

400  CALL  CL0S(A(1FCH) 

RETURN 

C 

9000  IER  3  PTERR 

WRITE  (1,9001)  PTERR, PTNH 

9001  FORHAT (’HIDAS  ERROR  3 M3,’  KEY  3  ’,15A2> 
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*  *  *  *  ****** 


C  CNEWT:  CREATE  HEW  TEST  ENTRY  PAGE  0002 


C 

c 

9200 

9201 


C 

C 

9900 


GOTO  400 


WRITE  (1,9201)  IER.NAME 

FORMAT ( 'ERROR  ',13,',  OPENING  FILE 

RETURN 


' , 1AA2) 


FORMAT ( ’ERROR  =  ’,13) 
ENO 


C  CRF'KEY:  CREATE  PLAN  KEYWORD 
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C  CRPKEY !  CREATE  PLAN  KEYWORD 
C 

***************************************************************** 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

* 

**************************************************************** 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


•GENERAL  PURPOSE  SUBROUTINE  TO  CREATE  A  KEYWORD 
•FUNCTION:  1.  CONCATENATE  TEXT  STRINGS  WITH  A  ’/' 
*  2.  APPENDS  DATE  AND  TIME  TO  END 


INBETWEEN 


SUBROUTINE  CRPKEY< TEXT  1 .MAXI , TEXT2.MAX2, TEXT3, MAX3 , TEXT4 , MAX4 , 
C  KEY.MAXKEY) 


(INSERT  SYSCOM>A(KEYS 
C 

CALL  2FIL(KEY,MAXKEY. ’  ’) 

LFN1  =  LSIZE(TEXT1,MAX1)  /*FIND  LENGTH  OF  FIRST  STRING 

CALL  ZMVtTEXTl.LENl, KEY.MAXKEY)  /*MOVE  FIRST  STRING  INTO  KEY 
IF  (TEXT2  ,EB.  0)  GOTO  1000 
IPOS  =  LEN1  +  1 

CALL  MCHR(A(KEY , IPOS, ’/  ’,1)  /*INSERT  ”/"  INTO  KEY 
IPOS  =  IPOS  +  1 

LEN2  =  LSIZE(TEXT2,MAX2)  /«FIND  LENGTH  OF  SECOND  STRING 

CALL  MSUB(A(TEXT2,MAX2,1,LEN2, KEY.MAXKEY, IPOS, MAXKEY) 

IF  (MAX3  .LE.  0)  GOTO  1000 
IF  (TEXT3  .EQ.  0)  GOTO  1000 


/•INSERT  ■/"  INTO  KEY 


IPOS  =  LSIZE(KEY, MAXKEY)  +  1 
CALL  MCHR(A(KEY .IPOS, '/  ',!) 

IPOS  =  IPOS  ♦  1 

CALL  MSUB(A(TEXT3,MAX3,1,MAX3, KEY, MAXKEY, IPOS, MAXKEY) 
IF  (MAX4  .LE.  0)  GOTO  1000 


/•INSERT  "/"  INTO  KEY 


1000 


IPOS  =  LSIZE(KEY, MAXKEY)  +  1 
IF  ( TEXT 4  .EQ.  0)  GOTO  1000 
CALL  MCHR(A(KEY , IPOS, ’/' , 1 ) 

IPOS  =  IPOS  +  1 
CALL  MSUB(A(TEXT4,MAX4,1,MAX4, KEY, MAXKEY, IPOS, MAXKEY) 
RETURN 
END 
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C  CRRES:  CREATE  RESULTS  RECORD 
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C  CRRES:  CREATE  RESULTS  RECORD 
C 

C  a**************************************************************** 

C  # 

C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1.1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  ******************************************************** 

C 

C  *CALLED  BY:  DINSP 

C  *FUNCTION:  1.  CREATE  TEST  RESULT  NAMES  (CRPKEY) 

C  *  2.  FILL  MAIN  RESULT  RECORD  FROM  PLAN  <2HVD) 

C 

SUBROUTINE  CRRES(SERIAL.11D. IERR) 

C 

♦INSERT  PCOM 
♦INSERT  PTCOM 
♦INSERT  RCOM 
♦INSERT  SYSCOM>PARH.K 
C 

INTEGER  BIAS.BI . IBUF (10) ,  IKEYTRNWT ) . BIAS2.BI2. TBI AS 
C 

NSIZ  =  RNWT*2 
C 

TBIAS  *  22  /*  TEST  NAME  BIAS 

C 

DO  10  I  =  l.PNT  /*CREATE  TESTNAMES  FOR  RCOM 

CALL  NEXTdPTCHN,PTREC,PREC<TBIAS),PTARR, FLORET, ^9000, 0,0, 0,0) 
TBIAS  =  TBIAS  +  PNHT 
BIAS  =  2*<22  +  <I-1)*PNMT)  -  1 

BIAS2  «  BIAS  +  2*PNWT  -  1 
BI  =  2* <43  +  <I-1)*RNHT)  -  1 
BI2  =  BI  +  2*RNWT  -  1 
C 

C  PUT  PREC(BIAS)  INTO  IBUF 
C 

CALL  MSUB^A < PREC , PS2B , B I AS , BI AS2 , 1 BUF , 20 , 1 , 20 ) 

C 

C  CREATE  KEY  INTO  IKEY 
C 

CALL  CRPKEYtPPN, 20, PIN, 20, SERIAL, 20, IBUF, 20, IKEY, NSIZ) 

CALL  APDAT(IKEY.NSIZ) 

C 

C  MOVE  IKEY  INTO  RREC(BI) 

C 


10 

C 


C 

9000 

9010 


CALL  MSUBWIKEY, NSIZ,  1, NSI2, RREC,RSZB,BI  ,BI2) 
CONTINUE 


CALL  ZM VD ( PPN , RPN , 20 ) 

CALL  ZMV0(PIN,RIN,20) 

CALL  2HVD(IID,RIID,10) 
CALL  ZMVO < SERIAL , RSNO , 20) 
RETURN 


IERR  =  PTERR 

WRITEd  ,9010)  IERR,  TBIAS 

FORMATdX, 'ERROR  M2,’  BIAS  =  M3,’  IN  CRRES  CHECK  PLANTEST’) 

RETURN 

END 
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C  CRTRES:  CREATE  A  TEST  RESULTS  RECORD 
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C  CRTRES:  CREATE  A  TEST  RESULTS  RECORD. 

C 

C  ***************************************************************** 

c  * 

C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  **************************************************************** 

C 

C  *CALLED  BY:  DINSP 

C  *FUNCTION:  1.  HOVE  TEST  PLAN  RECORD  TO  TEST  RESULTS  RECORD 

C  *  2.  MOVE  IMAGE  NAME  TO  TEST  RESULTS  RECORD 

C  *  3.  MOVE  TAPE  NAME  TO  TEST  RESULTS  RECORD 

C 

SUBROUTINE  CRTRESU  iRTKEY) 

C 

C  I  =  TEST  SEQUENCE  NO. 

C 

♦INSERT  PTCOM 
♦INSERT  RCON 
♦INSERT  RTCOM 
♦INSERT  TCOM 
C 

I  BIAS  =  43  *  (I-1HRNWT 
IMGSIZ  =  TNWT*2 
C 

C  ZERO  THE  RECORD 
C 

CALL  ZFIL (RTRECjRTSZB, 0) 

C 

C  MOVE  A  COPY  OF  TEST  PLAN  TO  RESULTS  RECORD 
C 

CALL  ZHVDIPTREC.RTRECrPTSZB) 

C 

C  STORE  THE  IMAGE  NAME 
C 

CALL  ZHVD(RREC< I BIAS) ,RTIHN, IMGSIZ) 

CALL  ZMVD(RTIMN,RTKEY, IMGSIZ) 

C 

C  PLUS  THE  TAPE  NAME  I  NUMBER 
C 

CALL  ZMVD(TNAM,RTTNM,20) 

RTFNM  =  TFCNT 
C 

RETURN 

END 
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*  *  *  *  ****** 


C  DBPRM:  INSERT  DATA  BASE  PARAMETERS 
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C  DBPRM:  INSERT  DATA  BASE  PARAMETERS 
C 

C  ****«**#»****##***««******»«#«**«**#*«*#**«**»«***«»*«####««#*«## 

c  * 

C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  *»**««**********««****#***##»#***#*«»#*****#***«#*«#«*##*«#««**** 


C  •  CALLED  BY:  IN1TAL  * 

C  *  FUNCTION:  LOAD  DATA  BASE  NAMES,  NAMELENGTHS  INTO  COMMON  FILES  * 
C 

SUBROUTINE  DBPRM 
C 

♦INSERT  PCOR 
♦INSERT  PTCOM 
♦INSERT  RCOM 
♦INSERT  RTCOM 
♦INSERT  TCOM 
♦INSERT  CCOM 
C 

C  INSERT  NAMES 
PLLEN  =  8 

CALL  ZMV( 'PLAN.DB  ’, PLLEN, PLNAM, 32) 

PTLEN  =  11 

CALL  ZMV(  ’F'LNTEST  .DB  PTLEN, PTNAM, 32) 

RLLEN  =  10 

CALL  ZMV( ' INSRES.DB  ’ .RLLEN, RLNAM, 32) 

RTLEN  =  12 

CALL  ZMV< ' INSTESTR.DB  ', RTLEN, RTNAM, 32) 

TPLEN  =  8 

CALL  ZMV( 'TAPE.D8  * .TPLEN, TPNAM, 32) 

CLEN  =  11 

CALL  ZMV< ’ COMMAND. DB  ’ ,CLEN,CNNAM,32) 

RETURN 

END 
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C  D1NSP:  DO  THE  INSPECTION 
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C  DINSP:  DO  THE  INSPECTION 
C 

C  ***************************************************************** 

c  * 

C  *  REAL  TINE  XRAY  -  AUTORATED  INSPECTION  SYSTER 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  ***************************************************************** 

c 

C  ^CALLED  BY'  INSP  * 

C  ^FUNCTION:  1.  INITIALIZE  IRAGE  PROCESSOR,  IF  REQUIRED  (INTIP)  * 

C  *  2.  INITIALIZE  ROTORS,  IF  REQUIRED  (INTROT)  * 

C  *  3.  INITIALIZE  RAG  TAPE,  IF  REQUIRED  (INTAP)  * 

C  *  4.  CREATE  A  RAIN  RESULT  RECORD  (CRRES)  * 

C  *  5.  DO  THE  FOLLOWING  FOR  EACH  TEST:  * 

C  *  A.  GET  TEST  PLAN  (GPTST)  « 

C  *  B.  CREATE  TEST  RESULT  RECORD  (CRTRES)  * 

C  *  C.  POSITION  ROTORS  (PROT)  * 

C  *  D.  PROCESS  THE  IRAGE  (PIRG)  * 

C  *  E.  SAVE  THE  TEST  RESULTS  (SVRES)  * 

C  *  6.  SAVE  THE  RAIN  TEST  RESULTS  (SVRRES)  * 

C 

SUBROUTINE  DINSP( 11D, SERIAL, EQUIP. DEFALT, IERR) 

(INSERT  PC OR 
(INSERT  RCOR 
C 

LOGICAL  EQUIP 
INTEGER  RTKEY(RNWT) 

C 

IF  (EQUIP)  GOTO  10 
C  INITIALIZE  IRAGE  PROCESSOR 

c- . 

CALL  I NT IP (I ERR) 

IF  (IERR  .NE.  0)  RETURN 
C  INITIALIZE  ROTORS 

CALL  INTROT ( IERR) 

IF  (IERR  .NE.  0)  RETURN 
C  INITIALIZE  TAPE 
C - 

10  CALL  INTAP(EQU1P, NOTAPE, IERR) 

IF  (IERR  .NE.  0)  RETURN 
EQUIP  =  .TRUE. 

C  SET  OVERALL  PASS-FAIL  CODE  TO  ZERO 

C - 

RPF  =  0 

C  CREATE  THE  RESUTLTS  RAIN  RECORD 
C . . - 

20  CALL  CRRES(SERIAL, IID, IERR) 

IF  (IERR  .NE.  0)  RETURN 

C 

C  DO  FOR  EACH  TEST 
C 

DO  30  I  =  l.PNT 
C  GET  PLAN'S  TEST 
C . 

21  CALL  GPTST ( I , IERR) 

IF  (IERR  .NE.  0)  RETURN 
C  LOAD  RTCOR 

C - 

CALL  CRTRES(I.RTKEY) 

C  POSITION  ROTORS 

C . 

CALL  PROT 

C  PERFORR  IRAGE  PROCESSING  PER  TEST 

C- . 

CALL  PIRGd, NOTAPE, IERR) 

C  SAVE  THE  INSPECTION  TEST  RESULTS 
C - 

CALL  SVRES(DEFALT .NOTAPE, I ,RTKEY , IERR) 

IF  (IERR  .NE.  0)  RETURN 
30  CONTINUE 

C  A5-75 


*  *  *  *  * 


C  D1NSP:  DO  THE  INSPECTION 
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C  SAVE  THE  RESULTS  RAIN  RECORO 

C . CALL  SV«RES<IER) 

RETURN 

END 
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C  DLTC;  DELETE  IMAGE  PROCESSOR  COMMAND 
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1 


C  OLTC s  DELETE  IMAGE  PROCESSOR  COMMAND 
C 

C  *************************************** ************************* 


c  *  | 
C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 
C  *  VERSION  1.0  JUNE  1,1980  * 
C  *  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY  * 
C  *  * 
C  I**************************************************************** 
C 

C  sCALLED  BY?  PLAN  * 
C  ^FUNCTION:  1.  GET  COMMAND  NAME  FROM  OPERATOR  • 
C  *  2.  FIND  RECORD  IN  COMMAND  DATA  BASE  * 
C  *  3.  DELETE  THE  COMMANO  RECORD  * 


C 

C  ARG  l:  I ERR  INTEGER 

C 

SUBROUTINE  DLTC(IERR) 

C 

♦INSERT  CCOM 

♦INSERT  SYSCOH>PARN.K 

C 

INTEGER  CNAME(IO) 

LOGICAL  MORE 
C 

C  GET  TEST  NAME 
C 

10  WRITE ( 1.20) 

20  FORMATdX,  'COMMAND  NAME?') 

RFAD< 1 . 25, ERR  =  10)  CNAME 
25  FORMAT  < 10A2) 

C 

C  FIND  THE  RECORD 
C 

IFLAG  =  FLORET 

CALL  NEXU(CCHN,CREC, CNAME, CARR, IFLAG, ♦8000,0, 0.0,0) 
C 

C  DELETE  THE  RECORD 
C 


30 


C 

8000 

8004 
C 

8005 
8010 

C 

9000 

9010 


IFLAG  =  FLORET  +  FL^USE 

CALL  DELET^ICCHN.CREC, CNAME, CARR, IFLAG, ♦9000,0, 0,0,0) 

WRITE! 1 ,30)CNAME 

FORMAT (IX, 10A2, '  DELETED') 

CALL  DMORE(MORE) 

IF  (MORE)  GOTO  10 
RETURN 

IF  (CERR  .NE.  7)  GOTO  8005 

WRITEd  ,8004)  CNAME 

FORMAT (10A2,'  COMMANO  NOT  FOUND') 

RETURN 


WRITEd, 8010)  IERR, CNAME 
FORMATdX, 'MIDAS  ERROR  1 
RETURN 


,13,'  IN  FINDING  ',10A2> 


IFRCp  -  rrDp 

WRITEd,  9010)IERR,  CNAME 
FORMATdX, 'MIDAS  ERROR  ’ 
RETURN 
END 


rI2,’  IN  DELETING  ’,10A2> 
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C  OLTP:  OELETE  A  PLAN 
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OLTP:  DELETE  A  PLAN 

**««****«******«***•««*«•*««»•••••«•*««««»«««««••«*««••*«««••••«• 

* 

*  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 
» 

****«•«***«******«***«««•***«*«***«*«**«*«***«**«**»*«•*«****«*«« 
•CALLED  BY:  PLAN 

•FUNCTION:  1.  GET  PART#, INSPECTION  NAME  FROM  OPERATOR  « 

•  2.  CREATE  THE  PLAN  KEYWORD  » 

•  3.  GET  THE  RECORD  FROM  DATA  BASE  « 

•  4.  DELETE  SECONDARY  AND  PRIMARY  KEYWORDS  AND  RECORD  • 

ARG  li  IERR  INTEGER 


C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

SUBROUTINE  DLTP(IERR) 

(INSERT  PCOM 
(INSERT  SYSCOM>PARM.K 
(INSERT  SYSCOH>A(KEYS 
(INSERT  SYSCOM>KEYS.F 
C 

INTEGER  IBUF (20) > OPART ( 10) >D1 1N( 10) ,DKEY(20) , BIAS, PTEMP (PSZW) 

LOGICAL  ZCH 
C 

EQUIVALENCE  (IBUF,DFART) 

EQUIVALENCE  < IBUF< 11 ) ,DIIN) 

C 

CALL  ZFILIIBUF ,40,0)  /«  ZERO  THE  PEDIT  BUFFER 

CALL  VOPEN(('DEMO. SCREEN. FT',14,1,ICH, IERR)  /•  OPEN  PEDIT  CHANNEL 
IF  (IERR  .NE.  0)  60T0  9000 


C 

C 

C 


SET  UP  PEDIT  PARAMETERS 

IERR  *  0 
IS  =»  51 
IE  *■  52 
NEWSCR  =  2 

GET  PART  «  AND  INSPECTION  NAME  FROM  PEDIT 
CALL  PED1T< ICH, IBUF , IS, IE , NEWSCR) 

CLOSE  PEDIT  RECORD 
CALL  CLOS(AdCH) 

MAKE  IBUF  INTO  KEY 

CALL  CKPKEY(DPART,20,DIIN,20,0,0,0,0,DKEY,40) 

GET  THE  RECORD 

CALL  NEXT((PCHN,PREC,DKEY,PLARR,FL(RET, (9050, 0,0, 0,0) 
BIAS  =  22 

IF  (PREC(BIAS)  .EQ.  0)  GOTO  20 


C 

10 
C 

C  DELETE  SECONDARY  KEYS 
C 

FIND  SECONDARY  KEYS 


C 

C 

30 

C 

C 

c 


c 

c 


IFLAG  ■  FL(RET 

CALL  NEXT((PCHN,PTEMP,PREC(BIAS),PLARR, IFLAG, (20, 1,0, 0,0) 

COMPARE  PREC  AND  PTEMP 

IFLAG  «  FL(RET  ♦  FL(UBE 
{SIZE  a  psZB 

IF  (.NOT.  2CM( PTEMP, ISI7E,PREC, ISIZE, I  CODE ) >  GOTO  30 
DELETE  THE  SECONDARY  KEY 
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*  *  *  *  * 


C  OLTPS  DELETE  A  PLAN 
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C 

c 


CALL  DELETf <PCHN,PREC,PREC(BIAS) ,PLARR, IFLA6, 120, 1,0, 0,0) 

BIAS  =  BIAS  *  PNMT 
GOTO  10 


C  DELETE  PRIMARY  KEY  AND  RECORD 
C 

20  IFLAG  =  FLIRET 

CALL  DELEU<PCHN,PREC,DKEY,PLARR, IFLAG, *9100,0. 0,0,0) 
URITE( 1 r 80)DKEY 

80  FORMATdX,  ’DELETED  ’,20A2> 

RETURN 

9000  WRITE ( 1  *  9010) IERR 

9010  FORMATdX, ’ERROR  M2,’  IN  OPENING  DEMO. SCREEN. FT ’ ) 
RETURN 
C 

9050  IF  (PLERR  .NE.  7)  GOTO  9065 
WRITE! 1 ,9060) 

9060  FORMATdX. 'RECORD  NOT  FOUND’) 

RETURN 

9065  WRI TE  < 1 . 9070 ) PLERR , PRE  C  <  B I AS  > 

9070  FORMATdX, 'MIOAS  ERROR  M2,’  IN  FINDING  KEY  ’,20A2) 
IERR  =  PLERR 
RETURN 
C 

9100  WRITE d , 91 10)  PLERR, DKEY 

9110  FORMAT  (IX,  'MIDAS  ERROR  M2,'  IN  DELETING  ',20A2) 

IERR  =  PLERR 

RETURN 

END 


C  DLTR:  DELETE  RESULTS  PAGE  0001 


C  DLTR:  DELETE  RESULTS 
C 

C  a**************************************************************** 

c  * 

C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  a**************************************************************** 

C 

C  ^CALLED  FROM:  PLAN  * 

C  *FUNCTION:  1.  GET  PART#, INSPECTION  NAME  FROM  OPERATOR  * 

C  *  2.  FIND  A  MATCH  IN  DATA  BASE  * 

C  *  3.  IF  CORRECT  RESULT,  OELETE  IT  AND  THE  RESULT  TESTS  * 

C 

SUBROUTINE  DL  TRUER ) 

C 

WRITE  (1,1) 

1  FORMAT ( ’«*  DELETE  RESULTS  IS  A  FORBIDDEN  TRANSACTION  ««') 

IER  =  o 

RETURN 

END 
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C  DLTT  :  DELETE  TEST  PLAN 
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C  OLTT:  DELETE  TEST  PLAN 
C 

C  jut**#*****#****###*** ************«««*«#***#*«**#****#*#*** *#**«#* 

c  * 

C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  *#************************************«««*#****»#«*#***«**#****«# 

c 

C  ^CALLED  BY:  PLAN 

C  ^FUNCTION:  1.  GET  TEST  NAME  FROM  OPERATOR 

C  *  2.  FIND  RECORD  IN  TEST  DATA  BASE 

C  *  3.  DELETE  THE  TEST  RECORD 

C 

C  ARG  is  1ERR  INTEGER 
C 

SUBROUTINE  DLTT(IERR) 

C 

♦INSERT  PTCOM 
♦INSERT  SYSCOM>PARH.K 
C 

INTEGER  PTNAME(IO) 

LOGICAL  MORE 
C 

C  GET  TEST  NAME 
C 

10  MRITEd  ,20) 

20  FORMATdX, 'TEST  NAME?') 

READd  ,  25, ERR  =  10)  PTNAME 

25  FORMAT  < 10A2) 

C 

C  FIND  THE  RECORD 
C 

1FLAG  -  FLORET 

CALL  NEXT ♦ < PTCHN , PTREC , PT NAME , PT ARR , 1 FL AG , 18000 , 0 , 0 , 0 , 0 ) 

C 

C  DELETE  THE  RECORD 
C 


30 


C 

8000 

8004 
C 

8005 
8010 

C 

9000 

9010 


1FLAG  =  FLORET  +  FLOUSE 

CALL  DELETO (PTCHN, PTREC, PTNAME, PT ARR, IFLA6, 09000, 0,0, 0,0) 

WRITE (1,30) PTNAME 

FORMAT (IX, 10A2, ’  DELETED’) 

CALL  DMORE(MORE) 

IF  (MORE)  GOTO  10 
RETURN 


IF  (PTERR  .NE.  7)  GOTO  8005 

WRITE! 1,8004)  PTNAME 

FORMAT (10A2, ’  TEST  PROCEDURE  NOT  FOUND' 

RETURN 


WRITE(1,8010)IERR, PTNAME 
FORMAT (IX, 'MIDAS  ERROR  M3, 
RETURN 


IN  FINDING  ' , 10A2) 


1ERR  «  PTERR 

MRITEd  ,9010)  IERR,  PTNAME 
FORMATdX,  ’MIDAS  ERROR 
RETURN 
END 


12,’  IN  DELETIN6  ’.10A2) 


He  He  IK  *  * 


C  DRORE!  DO  YOU  WANT  TO  DO  WORE? 
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C  DRORE :  00  YOU  WANT  TO  DO  WORE? 

C 


C 


a**************************************************************** 


C  *  REAL  TIRE  XRAY  -  AUTORATED  INSPECTION  SYSTER 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY 


C  * 


C  ********************************************************** 

C 

C  ^GENERAL  PURPOSE  SUBROUTINE  TO  SEE  IF  OPERATOR  NEEDS  TO  DO 
C  *  A  FUNCTION  AGAIN 


C 

SUBROUTINE  DRORE(RORE) 

C 

♦INSERT  SYSCOR>AIKEYS 
C 

LOGICAL  RORE, YSNOiA 
C 

RORE  =  YSNOIAI ’Rore’ t4»AIDN0> 

RETURN 

END 
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C  DSPLD J  DISPLAY  OR  PRINT  PLAN  OR  RESULT  DATA. 

C 

C  ************«««««****###**««*****«*#«*#**«*««***«**»*««*******«** 

c  * 

C  *  REAL  TIRE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  it***#****#******#*#*****#******##**#****#***#*#*****###***#**###* 

c 

c  *CALLED  FROM:  PLAN 

C  *FIJNCTION?  1.  GET  DISPLAY  FUNCTION  FROM  OPERATOR  (GDFNCT) 

C  *  2.  CALL  ONE  OF  FOLLOWING  SUBROUTINES 

C  *  DSPP  -  OISPLAY  A  PLAN 

C  *  DSPPT  -  DISPLAY  A  TEST 

C  *  DSPR  DISPLAY  MAIN  RESULTS 

C  *  DSPRT  -  DISPLAY  TEST  RESULTS 

C  *  DSPT  -  DISPLAY  TAPE  RECORD 

C  *  L I ST IX-  LIST  RECORD  BY  INDEX  NO. 

C  *  3.  IF  MAILSTOP  GIVEN, SPOOL  INFO  TO  LINE  PRINTER 

C 

C  ARG  l:  IERR  INTEGER 

C 

SUBROUTINE  DSPLD(IERR) 

C 

INTEGER  SPFNAM(7) , SPCHN 
C 
C 

C  GET  DISPLAY  FUNCTION 
C 

10  CALL  GDFNCT (MENU, SPCHN, SPFNAM) 

C 

IF  (MENU  .EQ.  0)  RETURN 

GOTO  ( 100,200,300,400,500,600,700,800) ,  MENU 
C 


C  DISPLAY  MAIN  PLAN 

C 

100 

CALL  DSPP (SPCHN) 
GOTO  8000 

C 

C  DISPLAY  PLAN  TEST 

C 

200 

CALL  DSPPT (SPCHN) 
GOTO  8000 

C 

C  DISPLAY  MAIN  RESULTS 

C 

300 

CALL  DSPR (SPCHN) 
GOTO  8000 

C 

C  DISPLAY  TEST  RESULTS 
r 

400 

CALL  DSPRT (SPCHN) 
GOTO  8000 

C 

C  DISPLAY  TAPE  RECORD 

C 

500 

CALL  DSPT (SPCHN) 
GOTO  8000 

C 

C  LIST 
C 

INDEX 

600 

CALL  LISTIX(SPCHN) 
GOTO  8000 

C 

C  SOME 
C 

OTHER  FUNCTION 

700 

£ 

GOTO  8000 

C  SOME 

n 

OTHER  FUNCTION 

h 

GOTO  8000 

C  PRINT  RESULTS? 
C 


* 

* 

* 

* 

s 

* 

* 

* 

* 

* 
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C  DSF'LD:  DISPLAY  OR  PRINT  PLAN  OR  RESULT  D  PAGE  0002 


8000 


IF  (SPCHN  .EQ.  0)  GOTO  10 
CALL  SPOLIT (SPCHN. SPFNAB) 
GOTO  10 
END 
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C  DSPP:  DISPLAY  MAIN  PLAN 
C 

C  a**************************************************************** 

c  * 

C  *  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  » 

C  **************************************************************** 

C 

C  *CALLED  BY:  DSPLD 

C  ^FUNCTION:  1.  GET  PART#, INSPECTION  NAME  FROM  OPERATOR  <PEOIT) 

C  *  2.  FIND  RECORD  IN  DATA  BASE 

C  *  3.  PRINf/DISPLAY  THE  RECORD 

C  *  4.  IF  OPERATOR  HANTS  TO  SEE  A  TEST: 

C  *  A.  FIND  THE  RECORD 

C  *  B.  DISPLAY  IT 

SUBROUTINE  DSPP(^EPCHN) 

C 

C  ARG.l:  REPCHN  INTEGER,  REPORT  CHANNEL 
C  . 

♦INSERT  PCOM  ) 

♦INSERT  PTCOM 
♦INSERT  SYSCOM>PARM.K 
♦INSERT  SYSCOM>A^KEYS 
C 

INTEGER  PEF'CHN.PKEY (20) 

C 

C  OPEN  SCREEN  TEMPLATE 
C 

CALL  VOPEN^ ( ’ DEMO . SCREEN .FT ’ , 14, 1 , IPCHN , IER ) 

IF  (IER  .NE.  0)  GOTO  9000 
C 

C  GET  PART  NUMBER,  INSPECTION  NAME 
C 

N  =  -1 
IS  =  49 
IE  =  52 

NEWSCR  »  2  /*  DO  NOT  ERASE  SCREEN  TO  START 

CALL  ZFIL(PREC.P5ZB,Q) 

CALL  PEDIT ( IPCHN, PREC, IS, IE, NEWSCR) 

C 

CALI  CRPKE Y ( PPN ,20, PIN, 20, 0,0, 0,0, PKE Y , 40 )  /*  CREATE  KEYWORD 

NCHAR  =  LSIZE(PKEY , 40)  /*  GET  LENGTH  OF  KEYWORD 

IFLAG  *  FLORET  +  FL^BIT 
C 

C  FIND  THE  RECORD 
C 

10  CALL  NEXT ♦(PCHN, PREC, PKE Y, PL ARR, IFLAG, ♦9100, 0,0,0, NCHAR) 

C 

C  PRINT/DISPLAY  THE  RECORD 
C 

IS  =  49 
IE  =  <44 
NEWSCR  =  2 
WRITE  (1,11) 

11  FORMAT!/) 

CALL  RPTGEN(REPCHN,IPCHN,PREC,LINES,IS,IE,NEWSCR) 

20  IF  (REPCHN  .NE.  0)  GOTO  9900 

IFLAG  =  FLORET  +  F14USE  ♦  F L ♦& I T 
C 

CALL  READN( 

-  ’-1  =  QUIT,  0  <=  MORE  MATCHES,  N  =  SEE  NTH  TEST:  *  ,47,N> 

IF  (N)  9900,10,25 
C 

C  FIND  A  TEST  RECORD 
C 

25  IB1AS  =  22  +  (N-l )#PNWT 

IFLAG  *  FURET 

30  CALL  NEXT4(PTCHN,PTREC,PREC(IBIAS),PTARR, IFLAG, ♦9200,0,0, 0,0) 

C  PRINT/DISPLAY  THE  TEST  PLAN 
C 


IS  *  74 
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IE  =  99 
WRITE  (1.11) 

CALL  RPTGEN(REPCHN. IPCHN.PTREC. LINES. IS. IE.NEWSCR) 
GOTO  20 
C 

C  ERRORS 
C 

9000  WRITE ( 1 .9010) IER 

9010  FORNATdX,  ’ERROR  ',13,'  IN  OPENING  DENO. SCREEN. FT' ) 
RETURN 
C 

9100  IF  (PLERR  .N£.  7)  GOTO  9120 
IF  (N  .£8.  0)  GOTO  9900 
WRITE (1>9110)PKEY 

9110  F0R«AT(/,1X,20A2,'  NOT  FOUND') 

GOTO  9900 

9120  IF  (PLERR  .£8.  22  .OR.  PLERR  .EB.  24)  GOTO  9140 
WRITE(1 .9130) PLERR. PKEY 

9130  FORNAT (IX,  ’RIDAS  ERROR  M3.'  IN  FINDING  '.20A2) 

GOTO  9900 

9140  CALL  RECYCL 
GOTO  10 
C 

9200  IF  (PTERR  .NE.  7)  GOTO  9220 
CALL  TNOUA(PREC( IBIAS) .20) 

CALL  TNOU( '  NOT  FOUND’. 10) 

GOTO  9900 

9220  IF  (PTERR  .EO.  22  .OR.  PTERR  .EB.  24)  GOTO  9240 
WR I TE(1 ,9230) PTERR 

9230  FORNAT (IX, 'MIDAS  ERROR  ’,13,’  IN  FINDING  ’) 

CALL  TNOU(PREC( IBIAS) ,50) 

GOTO  9900 
9240  CALL  RECYCL 
GOTO  30 
C 

C  EXIT 
C 

9900  CALL  CLOSiAdPCHN) 

RETURN 
END 


C  DSPPT:  DISPLAY  ONE  TEST  PLAN 
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C  OSPPT :  DISPLAY  ONE  TEST  PLAN 
C 

is*************************************************************** 

*  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1.1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

* 

***************************************************************** 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


*CAL LED  BY:  DSPLD 

*FUNCTION  :  1.  GET  TEST  NAME  FROM  OPERATOR  (PEDIT) 

*  2.  FIND  THE  RECORD  IN  TEST  DATA  BASE 

*  3.  PRINT/DISPLAY  THE  RECORD 


SUBROUTINE  DSPPT<SPCHN> 
SPCHN 


C  ARG  l:  SPOOL  CHANNEL 
C 

I INSERT  PTCOM 
♦INSERT  SYSCOR>PARM.K 
♦INSERT  SYSCOM>AFKEYS 
C 


INTEGER 


C 

C 

C 


OPEN  SCREEN  TEMPLATE 

CALL  VOPEN^ ( ' DEMO . SCREEN .FT’,14,1, IPCHN . IERR ) 

IF  < IERR.  NE.  0)  GOTO  9000 

GET  THE  TEST  NAME 

IS  =  74 
IE  =  75 

NEHSCR  =2  /*  DO  NOT  ERASE  SCREEN  TO  START 

CALL  ZFIL( PTREC, PTSZB.O) 

CALL  PEDIT ( IPCHN, PTREC, IS, IE. NEHSCR) 

WRITE  (1,1) 

FORHAT</> 


NCHAR  =  LSIZE(PTREC,20) 
IFLAG  =  FLORET  ♦  FLFBIT 


/*  GET  LENGTH  OF  KEYWORD 


FIND  THE  TEST  RECORD 

CALL  NEXT6 ( PT CHN , PTREC , PTREC , PTARR , IFLAG, ♦9100,0, 0,0, NCHAR ) 


C 
C 
C 

10 
C 

C  PRINT/DISPLAY  THE  RECORD 
C 

IS  =  73 
IE  =  99 
WRITE  (1,11) 

11  FORMATS  > 

CALL  RPTGEN ( SPCHN , I PCHN , PTREC , L INES , I S , I E , 2 ) 
IFLAG  =  FL^BIT  +  FLORET  +  FLWSE 


ANY  MORE  MATCHES? 

J  =  1  - 

IF  (SPCHN  .EQ.  0)  CALL  PAUS(J) 
IF  (J  .EQ.  0)  GOTO  9900 
GOTO  10 


C  ERRORS 

r* 

9000 

WRITE ( 1 ,9010) IERR 

9010 

J 

FORMAT ( IX,’ ERROR  M3,’  IN  OPENING 
RETURN 

DEMO. SCREEN. FT') 

9100 

IF  (PTERR  .EQ.  7)  GOTO  9900 

$150 

IF  (PTERR  .NE.  24  .AND.  PTERR  .NE. 
CALL  RECYCl 

GOTO  10 

22)  GOTO  9150 

WRITE! 1 ,9160) PTERR, PTNM 

9160 

FORMAT!  IX,  'MIDAS  ERROR  M3.'  IN  FINDING  ’.20A2) 
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C 

9900 


CALL  CLOSf A(IPCHN) 

RETURN 

END 
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C  DSPRJ  DISPLAY  RESULTS 
C 


C 

C 

C 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


» 

* 

* 

« 

* 

**«*! 


REAL  TIRE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

VERSION  1.0  JUNE  1.1980 

BOEING  AEROSPACE  QUALITY  AS8URANCE  TECHNOLOGY 


*CALl 
*FUi 
* 

« 

* 

* 

* 

« 


BY >  DSPLD  AND  RETR 

ON  *  1.  GET  PARTS. INSP  NAME. SERIALS. INSP  ID  FROM  OPERATOR 

2.  CREATE  THE  RESULT  KEYWORD 

3.  FIND  A  NATCH  IN  DATA  BASE 

4.  PRINT/DISPLAY  THE  RECORD 

5.  IF  TEST  RESULT  DESIRED* 

A.  FIND  THE  RECORD  * 

B.  DISPLAY  IT  * 


AR6  It  REPCHN 


INTEGER 


SUBROUTINE  DSPR( REPCHN) 


/«  RESULTS  PRIMARY  KEY  LENGTH  WORDS 


♦INSERT  RCOM 
♦INSERT  RTCOH 
♦INSERT  SYSCOM>PARM.K 
♦  INSERT  SYSC0M>A9KEYS 
C 

INTEGER  RMPRI 
PARAMETER  RMPRI  =  20 
INTEGER  RKEY (RMPRI) 

f  SSf  Efi§Ec?f  iGP,'  i  Yi  ( ' "  ‘ 10  ’  ■  s“°‘  >S{  iiS^4?4*iB¥£i35  ’ 

EQUIVALENCE  (IBUF(A).PN)  /*PART  NUMBER 

EQUIVALENCE  ( IBUF ( IS) . IN)  ^INSPECTION  NAME 

EQUIVALENCE  (IBUF(26).8N0)  /^SERIAL  NUMBER 


C 

C 

C 

10 

C 


OPEN  SCREEN  TEMPLATE 

CALL  V0PEN9 ( ’DEMO. SCREEN. FT' .14.1 . IPCHN. IERR) 

IF  (IERR  .NE.  0)  GOTO  9000 

6ET  PARTS, INSP  NAME, SERIALS, INSP  ID 

IS  «  0 
IE  =>  5 

NEWSCR  ■  2  /*  DO  NOT  ERASE  SCREEN  TO  START 

CALL  ZFIL(IBUF,70,0) 

CALL  PEDIT( IPCHN, IBUF. IS, IE, NEWSCR) 

NBYTS  *  RMPRI*2 

CALL  CRPKE Y ( PN , 20 , IN , 20 , SNO ,20,0,0, RKEY , NBYTS > 
NCHAR  =■  LSIZE(RKEY,40)  /*  GET  LENGTH  OF  KEYWORD 
IFLA6  -  FL9RET  +  FLSBIT 


/«  CREATE  KEYWORD 


FIND  A  MATCH 

CALL  NEXTS(RLCHN, RREC, RKEY, RLARR.IFLAG, 99100, 0,0,0, NCHAR) 


C  PRINT/DISPLAY  THE  RECORD 
C 

IS  «  225 
IE  *  244 
NEWSCR  >  2 
WRITE  (1,11) 

FORMAT (/> 

CALL  RPTGEN(REPCHN, IPCHN, RREC, LINES, IS, IE, NEWSCR) 
IF  (REPCHN  .NE.  0)  GOTO  9900 
1FLAG  »  FL9RET  ♦  FL9USE  +  FL9B1T 


11 

20 

C 


WRITE  (1,11) 

CALL  READN 

<’-l  =  QUIT,  0  *  MORE  MATCHES,  N 
IF  (N)  9900,10,25 
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>  SEE  NTH  TEST*  ',47,N> 


it 
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C  FIND  A  TEST  RECORD 
C 

25  181  AS  =  43  +  (N-l >*RNWT 

30  CALLGNiXTi*RTCHN,RTREC.RREC(IBIAS),RTARR»IFLAG.«9200.0.( 

C 

C  PRINT/DISPLAY  THE  TEST  RESULT 
C 

IS  =  250 
IE  =  273 
WRITE  (1,11) 

CALL  RPTGEN(REPCHN, 1PCHN,RTREC»LINES» IS, IE .NEWSCR) 

GOTO  20 
C 

C  ERRORS 
C 

9000  WRITE< 1 » 9010) IERR 

9010  FORMAT  ( 1X»  'ERROR  M3,’  IN  OPENING  DEMO. SCREEN. FT ’ ) 
RETURN 


C 

9100 
9110 
9120 
9130 
9140 
C 

9200 

9201 
9220 
9230 
9240 
C 

C  EXIT 
C 

9900 


IF  (RLERR  .NE.  7)  GOTO  9120 
WRITEd  ,9110)RK£Y 
FORMATdX,  20A2,  ’  NOT  FOUND') 

GOTO  9900 

IF  (RLERR  .EQ.  22  .OR.  RLERR  .EG.  24)  GOTO  9140 
WRITEd  ,9130  )RLERR,RKEY 

FORMATdX, 'MIDAS  ERROR  M3,'  IN  FINDING  '.20A2) 
GOTO  9900 
CALL  RECYCL 
GOTO  10 

IF  (RTERR  .NE.  7)  GOTO  9220 

WRITE  (1,9201)  (RREC(I8IAS+I> ,1=0,24) 

FORMAT (25A2, '  NOT  FOUND') 

GOTO  9900 

IF  (RTERR  .EQ.  22  .OR.  RTERR  .EQ.  24)  GOTO  9240 
WR I TEd ,9230) RTERR, ( RREC ( IBIAS+I ), 1=0,24) 

FORMAT  (IX,  'MIDAS  ERROR  M3,'  IN  FINDING  ',25A2) 
GOTO  9900 
CALL  RECYCL 
GOTO  30 


CALL  CLOS*A(IPCHN) 

RETURN 

END 


.0,0) 
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C  OSPRT!  OISPLAY  RESULTS  OF  ONE  TEST 
C 

C  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXf XXXXXXX XXXXXXXXXXXXXX 

C  *  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  x 

C  *  VERSION  1.0  JUNE  1,1980  * 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  » 

C  *  * 

C  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

C  xCALLED  BY!  DSPLD  AND  RETR 

C  xFUNCTION:  1.  GET  PARTS, INSP  NAME, SERIALS, INSP  10  FROM  OPERATOR 

C  x  2.  CREATE  PLAN  TEST  KEYWORD 

C  *  3.  GET  THE  RECORD 

C  x  4.  DISPLAY  THE  RECORD 


C  ARG  1!  SPOOL  CHANNEL  SPCHN 
C 

SUBROUTINE  OSPRT(SPCHN) 


INTEGER 


(INSERT  RTCOM 
(INSERT  SYSCOM>PARM.K 
(INSERT  SYSCOM>A(KEYS 
C 

INTEGER  RTPRI  /*  NUMBER  OF  WORDS  IN  TEST  NAME 

PARAMETER  RTPRI  =>  20 
INTEGER  RKEY (RTPRI ) 

INTEGER  REPCHN,PN( 10) , IN(10) ,SNO( 10) , IID(5) , IBUF (45) 
INTEGER  TN(10) 

EQUIVALENCE  (IBUF.IIO)  /xiNSPECTORS  IDS 

EQUIVALENCE  <IBUF<A),PN)  /*PART  NUMBER 

EQUIVALENCE  <IBUF(16),IN>  /*INSPECTION  NAME 

EQUIVALENCE  ( IBUF(26> ,SNO)  /xSERIAL  NUMBER 

EQUIVALENCE  ( IBUF (36) »TN)  /xTEST  NAME 


/XINSPECTORS  IDS 
/XPART  NUMBER 
/XINSPECTION  NAME 
/xSERIAL  NUMBER 
/xTEST  NAME 


C  OPEN  SCREEN  TEMPLATE 
C 

CALL  VOF’EN((  ’DEMO. SCREEN. FT  ’ ,  14, 1 ,  IPCHN,  1ERR) 

IF  < IERR.  NE.  0)  GOTO  9000 
C 

C  GET  PARTS, INSP  NAME . SERIALS, INSP  ID 
C 

IS  ■=  0 
IE  =  6 

NEWSCR  =2  /x  DO  NOT  ERASE  SCREEN  TO  START 
CALL  ZFIL( IBUF, 90,0) 

CALL  PEDITdPCHN, IBUF, IS, IE, NEWSCR) 

C 

NBYT  «=  RTPRIX2 

CALL  CRPKEY<PN,20, IN,20,5N0,2D,TN,20,RKEY,NBYT)  /*  CREATE  KEYWORD 

NCHAR  =>  LSIZE(RKEY,40)  /*  GET  LENGTH  OF  KEYWORD 
IFLAG  ■  FL(RET  ♦  FL(BIT 
C 

C  FIND  THE  TEST  RECORD 


10  CALL  NEXT(<RTCHN,RTREC,RKEY,RTARR, IFLAG, (9100, 0,0,0, NCHAR) 
C 

C  PRINT/DISPLAY  THE  RECORD 
C 

IS  =  250 
IE  *  273 
WRITE  (1,11) 

11  FORMAT  (/) 

CALL  RPTGEN(SPCHN,1PCHN,RTREC,LINES, IS, IE.2) 

IFLAG  =  FL(BIT  +  FL(RET  ♦  FL(USE 
C 

C  ANY  MORE  MATCHES? 

C 

CALL  PAUS(J) 

IF  (J  .EQ.  0)  GOTO  9900 
GOTO  10 
C 

C  ERRORS 
C 

9000  WR1TE(1,9010)1ERR 


A5-90 


Me  *  Tit  m  * 


C  OSPRT«  OISPLAY  RESULTS  OF  ORE  TEST 


PAGE  0002 


9010  FORMAT (IX. ' ERROR  IK  0PENIK6  OERO. SCREEN. FT’ > 

RETURN 

C 

9100  IF  (RTERR  ,EQ.  7)  GOTO  9900 

IF  (RTERR  .HE.  24  .AND.  RTERR  .NE,  22)  GOTO  9150 
CALL  RECYCL 
GOTO  10 

C 

9150  MRIT£<i.916G)RT£RR»RKEY 

9160  FORNATdXf  'HIOAS  ERROR  '.I3r'  IN  FINOING  ',2QA2> 

C 

9900  CALL  CLOSiA(IPCHN) 

RETURN 

END 
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PA6E  0001 


OSPT s  DISPLAY  TAPE  DATA 


************ **********  ******** if********************************** 

*  REAL  TIDE  XRAY  -  AUTORATED  INSPECTION  SYSTER 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

* 

***************************************************************** 


^CALLED  BY: 
^FUNCTION 
* 

* 


DSPLD  AND  RETR 

1.  GET  TAPE  NARE  OR  IHA6E  NARE  FROM  OPERATOR  (PEDIT) 

2.  FIND  THE  RECORD 

3.  PRINT/DISPLAY  THE  RECORD  (RPTGEN) 


ARG  1?  SPCHN  SPOOL  FILE  CHANNEL 
SUBROUTINE  DSPT( SPCHN) 


INTEGER 


(INSERT  TCOR 
(INSERT  SYSCOR>PARR.K 
(INSERT  SYSCOR>A(KEYS 
C 

INTEGER  IBUF (26) , KEY(TNWT) 
LOGICAL  RORE 
EQUIVALENCE  (IBUF, INDEX) 
EQUIVALENCE  ( IBUF(2) ,KEY) 


/*  RIDAS  INDEX 
/*  RIDAS  KEYWORD 


C 

C 

C 


OPEN  SCREEN  FILE 


C 

10 


CALL  VOPEN( ( ' DERO . SCREEN . FT  M 4 , 1 , 1CH , I ERR ) 
IF  ( IERR  .NE.  0)  GOTO  9000 


IS  =  100 
IE  =  105 

NEWSCR  =  2  /*D0  NOT  ERASE  SCREEN  TO  START 

C 

C  GET  INDEX  AND  PRIRARY  OR  SECONDARY  KEYWORD 
C  PRIRARY  KEY=TNAR,  SECONDARY  KEYS=IRAGE  NARES 


C 

C 


CALL  PEDIT ( ICH, IBUF , IS, IE , NEWSCR) 

/*FIND  SIZE  OF  KEYWORD  FOR  RIDAS 


NBYTS  =  TNWT*2 

LEN  =  LSIZE(KEY, NBYTS) 


FIND  THE  RECORD 


C 

C 

C 


IFLAG  »  FL(RET  ♦  FL(BIT 
INDEX  =  INDEX  /*  ***CHECKOUT 

CALL  NEXT((TCHN, TREC, KEY, TPARR, IFLAG, (9100, INDEX, 0,0, LEN) 


DISPLAY  THE  RECORD 


11 


IS  ■  106 
IE  =  160 
WRITE  (1,11) 

FORRAT(/) 

CALL  RPTGEN (SPCHN, ICH, TREC, LINES, IS, IE, 2) 
CALL  DRORE(RORE) 


IF  (RORE)  GOTO  10 


C  CLOSE  THE  SCREEN  FILE 
C 

CALL  CLOS(A(ICH) 
RETURN 


100 


C 

C 

9000 

9010 


C 

9100 


WRITE ( 1 , 9010) IERR 
FORRATdX, 'ERROR  ’ 
RETURN 


,13,’  IN  OPENING  DERO. SCREEN. FT') 


9101 


IF  (TPERR  .NE.  7)  GOTO  9110 
WRITE( 1,9101)  KEY 
FORRAT ( 'NOT  FOUND*  ’,25A2> 
GOTO  100 


* 

* 

* 
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C  DSPT ;  DISPLAY  TAPE  DATA 


PAGE  0002 


9110 

9111 


WRITE(1»9111 )TPERR.KEY 
FORMAT ( IX. ' AIDAS  ERROR 
GOTO  100 
END 


.13. 


IN  FINDING  ' . 25A2) 


C  FREECHi  RETURNS  A  NUMBER  OF  AVAILABLE  PAGE  0001 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


FREECH:  RETURNS  A  NUMBER  OF  AVAILABLE  PRINOS  CHANNELS 
****»***«******«»•****** ***************************************** 

*  REAL  TINE  XRAY  -  AUTONATED  INSPECTION  SYSTEN 

*  VERSION  1.0  JUNE  1.1980 

*  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY  * 

*  * 
***************************************************************** 

SUBROUTINE  FREECHCNUN. ICHN) 

GENERAL  PURPOSE  SUBROUTINE  TO  FIND  ONE  OR  NORE  AVAILABLE  CHANNELS 

NUN  *  NUNBER  OF  FREE  CHANNELS  REOUESTEO 
ICHN  =  AN  ARRAY  SIZE  NUN  FOR  CNANNELS  AVAILABLE 


(INSERT  SYSCOR>KEYS.F 
♦INSERT  SYSCON>ERRO.F 
C 
C 


INTEGER  ICHN(l)  /*  DUNNY  DIMENSION 
LOGICAL  UNITiA 


C 

DO  100  ICHB1 >63 

IF  (UNIT$A(ICH) )  GOTO  100 
1CHN(I)  ■  1CH 
1  =  1  +  1 

IF  (1  .GT.  NUN)  RETURN 
100  CONTINUE 
C 

C  ALL  UNITS  IN  USE*  ERROR  561 
IER  =  EfFUIU 
RETURN 

ENO 
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*  *  * 


C  GDFNCTs  GET  DISPLAY  FUNCTION 


PAGE  0001 


C  GDFNCTs  GET  DISPLAY  FUNCTION 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

C  ARG  is  AENU 
C  ARG  2 i  SPCHN 
ARG  3:  SPFNAA 


****«****s*******s*******«***«**x****** ****««***««**«* *********** 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

»  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

* 

******************************************«******<**#*****«****** 

•CALLED  BY s  DSPLD  * 

•FUNCTIONS  1.  GET  FUNCTION  FROM  OPERATOR  » 

•  2.  GET  AAILSTOP  FROM  OFERATOR  IF  PRINTOUT  DESIRED  * 

*  3.  IF  PRINTOUT  DESIRED,  OPEN  A  SPOOL  CHANNEL  * 


C 

C 


INTEGER 

SPOOL  CHANNEL  NUMBER 
SPOOL  FILE  NAME 


INTEGER 

STRING,  INTEGER  ARRAY(7) 


SUBROUT  I NE  GDFNCT ( AENU , SPCHN , SPFNAA ) 


♦INSERT  SYSCOH>AIKEYS 
C 

INTEGER  SPCHN,SPFNAA(7) 
SPCHN  -  0 


10 


20 


CALL  2F1L (SPFNAA, 14,0) 

OPEN  A  CHANNEL  TO  SCREEN  TEMPLATE 

CALL  VOPEN$( ’DEMO. SCREEN. FT ’ ,14,1, ICH, IERR) 

IF  (IERR  .NE.  0)  GOTO  9000 

GET  AENU  AND  HAIL  STOP  FROM  SCREEN 

IS  «=  175 
IE  =  184 

NEWSCR  =  2  /*  DO  NOT  ERASE  SCREEN  TO  START 

CALL  PEOIT( ICH, SPFNAA, IS, IE, NEWSCR ) 

IF  ( SPFNAA ( 1 )  .GE.  D  .AND.  SPFNAH(l)  .LE.  8)  GOTO  30 
URITE( 1 ,20) 

FORMAT (IX, ’MENU  NOT  IN  RANGE’) 

GOTO  10 


C  CLOSE  THE  SCREEN  FILE 
C 

CALL  CLOS$A( ICH) 


30 

C 

C 

C 

C 

C 

C 

C 


OPEN 


AENU  =  SPFNAA(l) 

IF  (SPFNAA(5)  .EG.  0)  RETURN 

CALL  ZHVD( ’AAILSTOP. ’,SPFNAR, 9) 

CALL  PACK (SPFNAA, 14) 

A  CHANNEL  TO  SPOOL  FILE  FOR  WRITING 

CALL  VOPENi ( SPFNAA , 1 4 , 2 , SPCHN , IERR ) 
IF  (IERR  .NE.  0)  GOTO  9100 
RETURN 


C  ERROR  MESSAGES 
C 

9000  WRITE  < 1 ,9010) IERR 

9010  FORHATUX,  ’ERROR  ’,13,’  IN  OPENING  DEMO. SCREEN. FT '  > 
RETURN 

9100  WRITE( 1 ,9110) IERRr SPFNAA 

9110  FORMAT (IX, 'ERROR  ’,13,’  IN  OPENING  ',7A2> 

RETURN 

END 
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*  *  *  *  * 


C  GFUNCT:  GET  FUNCTION,  GAIN  MENU 


PAGE  OOOl 


C  GFUNCT:  GET  FUNCTION,  MAIN  NENU 
C 

c  *«******«**«****««#**«*«********««****•«******•««•••*•«•*««•*«•** 
c  * 

C  *  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  a*************************************************************** 

c 

c  *  CALLED  BY:  AI 

C  *  FUNCTION:  GET  MENU  FUNCTION  -  INSPECT, PLAN, QUERY  RESULTS, EXIT 


SUBROUTINE  GFUNCT (MENU) 


WRITE (1,20> 
FORMAT <//,'! 


FORMAT!//, 'MAIN  MENU:'/ 

FIX, '0  EXIT’/ 

11X,'1  PERFORM  AN  INSPECTION'/ 

21 X, '2  PLANNING  FUNCTIONS’/ 

31X, '3  QUERY  INSPECTION  RESULTS’) 

READ(1 ,30, ERR- AO) MENU 
FORMAT  (ID 

IF  (MENU  .LT.  0  .OR.  MENU  .6T.  3)  GOTO  10 

RETURN 

MENU  =  0 


RETURN 

END 
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*  *  ***»*» 


C  61IN:  GET  INSPECTOR  INPUT:  INSPECTOR  10.  PAGE  0001 


C  GIIN:  GET  INSPECTOR  INPUT:  INSPECTOR  10,  PARTN,  TESTNANE,  SERIALN 
C 

C  ***************************************************************** 

E  *  REAL  TIRE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  a**************************************************************** 

C 

C  ^CALLED  BY:  1NSP  * 

C  ^FUNCTION:  GET  INSPECTION  INFORMATION  WITH  SCREEN  EDITOR  * 

C 

SUBROUTINE  GI1N( I1D, PART, TESTID, SERIAL, 1ERR) 

C 

DIMENSION  1BUF (36) 

C  MOVE  DATA  TO  EDIT  BLOCK 
C 

CALL  MSUBiAdlD,  10, 1 , 10, 16UF ,70,1,10) 

CALL  MSUBt A ( PART , 20 , 1 , 20 . 1 BUF . 70 . 1 1 , 30  > 

CALL  MSUBt A (TEST ID, 20, 1 ,20, IBUF ,70,31,50) 

CALL  MSUBt A ( SER I AL , 20 , 1 , 20 , 1 BUF , 70 , 51 , 70 > 

C  OPEN  SCREEN  FILE 
C - 

CALL  VOPENt ( ' DEMO . SCREEN . F T ' , 1 A , 1 , 1 CHN , I ERR ) 

IF  < IERR  .EQ.  0)  GOTO  20 
UR1TE(1,10)IERR 

10  FORMAT (IX,  'ERROR  M2,'  IN  OPENING  DEMO. SCREEN. FT ’ ) 

RETURN 

C  SET  UP  PEDIT  PARAMETERS 

C - 

20  IS  =  0 

IE  =  4 

NEW SCR  ~2  J*  DO  NOT  ERASE  SCREEN  TO  START 
C  GET  OPERATOR'S  INPUT 
C - 

25  CALL  PEDIT ( ICHN, IBUF , IS, IE .NEWSCR) 

C  RAKE  SURE  SERIALN  NE  0 

C— - - 

IF  < IBUF (26)  .NE.  0)  GOTO  40 
WRITE( 1 ,30) 

30  FORNAT< IX, 'SERIAL  NO.  MANDATORY!') 

GOTO  25 

C  LOAD  INPUT  DATA  INTO  PARAMETER  VARIABLES 
C - 

40  CALL  MSUBtAdBUF, 70, 1,10, 110,10, 1,10) 

CALL  MSUBtA( IBUF.70, 1 1 ,30, PART, 20, 1 ,20) 

CALL  MSUBt A (IBUF , 70 , 31 , 50 , TEST ID , 20 , 1 , 20 ) 

CALL  MSUBtA (IBUF, 70 ,51 ,70, SERIAL, 20,1 ,20) 

C  CLOSE  SCREEN  FILE 

C - 

CALL  CLOStAdCHN) 

RETURN 


*  m  m  m  * 


C  6PFNCTS  6ET  PLAN  FUNCTION 
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C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

5 

10 


GPFNCT s  GET  PLAN  FUNCTION 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

*  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 
x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


xCALLED  BY «  PLAN 

XFIJNCTION:  GET  PLANNING  FUNCTION  FROM  OPERATOR 

SUBROUTINE  GPFNCT<MENU) 

WRITE  (1,10) 

FORMAT ( / , ' MENU  J  ’  / » 

1  '  1  CREATE  NEW  PLAN’,/ 

2  '  2  CREATE  NEW  TEST  PROCEDURE',/ 

3  '  3  CREATE  NEW  IMAGE  COMMAND'./ 

4  '  4  HAKE  NEW  PLAN  FROM  OLD',/ 

5  ’  5  HAKE  NEW  TEST  FROM  OLD',/ 

6  '  6  MAKE  NEW  IMAGE  COMMAND  FROM  OLD',/ 

7  ’  7  MODIFY  PLAN’,/ 

8  '  8  MODIFY  TEST  PROCEDURE',/ 

9  ’  9  MODIFY  IMAGE  COMMAND’,/ 

'10  DELETE  PLAN',/ 

1  '11  DELETE  TEST  PROCEDURE’,/ 

2  '12  DELETE  TEST  RESULTS',/ 

3  '13  DELETE  IMAGE  COMMAND',/ 

4  '14  DISPLAY  DATA',/) 

CALL  READN< ’?  ’,2, MENU) 

IF  (MENU  ,LT.  1)  RETURN 
IF  (MENU  .GT.  14)  GOTO  5 
RETURN 

END 
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C  GPLNN:  GET  PLAN  RECORD 
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C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 


GPLNN:  GET  PLAN  RECORD 

x********************************** **••«*****•***•*•*«** *•*••••*• 

*  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY 

* 

**************** ************** ********************** ************ 

•  CALLED  BY-'  INSP 

•FUNCTION:  1.  CREATE  THE  PLAN  KEYWORD 

•  2.  FIND  THE  PLAN  RECORD 

•  3.  IF  PLAN  RECORD  NON-EXISTANT,  NAY  USE  DEFAULT  PLAN* 

SUBROUTINE  GPLNM(PART .TESTID, DEFALT , IERR) 


♦INSERT  PCON 
♦INSERT  SYSCOH>PARN.K 
♦INSERT  SYSC0N>A9KEYS 
C 

INTEGER  KEY (15) ,DPLAN< 15) 
LOGICAL  DEFALT, YES, YSN09A 


C 

1000 

10 

C 

C 

C 

1001 


C 

9000 

C 

1002 


C 

C 

9100 


9200 


9900 

9910 


CALL  CRPKE Y ( PART , 20 , TEST  I D , 20 , 0 , 0 , 0 , 0 , KE  Y , 30 ) /*CREATE  KE  YNORD 
URITE( 1 , 1000)KEY 
FORMATdX,  ’KEY:  ',15A2> 

DEFALT  ■  .FALSE. 

CALL  ZFIL<PREC,PSZB,0)  /^INITIALIZE  PREC 
IFLAG  =  FL9RET 
WRITE ( 1 » 10001KEY 
CALL  TDUMP(KEY,30) 

CALL  NEXT ♦ (PCHN , PREC , KEY , PL ARR , IFLAG , 99000 , 0 , 0 , 0 , 0 ) 

WRITE! 1 , 1001 ) 

FORMATdX,  'NO  FRROR  FROM  NEXT9') 

IERR  =  0 
RETURN 

IERR  =  PLERR 
WRITEd ,  1002)  IERR 
FORMATdX, 'ERROR  M2) 

IF(PLERR.EQ.7>  GOTO  9100 

IF (PLERR. NE .22  .OR.  PLERR  .NE.  20  GOTO  9900 

CALL  RECYCL 

GO  TO  10  /*  TRY  AGAIN 

Record  does  not  exist 

YES  =>  YSNO$A( 'NOT  FOUND.  USE  DEFAULT  PLAN' ,27,A9DN0) 

IF  (YES)  GOTO  9200 
IERR  =  -1 
RETURN 

CALL  ZMVD( 'DEFAULT  PLAN/DEFAULT  »,KEY,30) 

DEFALT  =  .TRUE. 

GOTO  10 

WRITEd, 9910)PLERR, KEY 

FORMATdX, 'MIDAS  ERROR  M3,'  IN  LOCATING  M5A2) 

RETURN 

END 


8 


*  *  *  ****** 


C  6PTST  J  GET  A  TEST  PLAN 
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C  GPTSTJ  GET  A  TEST  PLAN 
C 

C  J**************************************************************** 

C  *  REAL  TINE  XRAY  -  AUTORATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  **************************************************************** 


*CALLED  BY!  OINSP 

^FUNCTION!  1.  GET  TEST  PLAN  RECORD 
*  2.  DISPLAY  TEST  DESCRIPTION 


SUBROUTINE  GPTST (ITEST , IERR) 


ITEST  =  TEST  SEQUENCE  NUMBER 


♦INSERT  PCOM 
♦INSERT  PTCOM 
♦INSERT  SYSCOM>PARH.K 
C 

EQUIVALENCE  ( PDA, L PDA) ,  (F'DB.LPDB),  (PDC.LPDC),  (PDD.LPDD) 

C 

IBIAS  =  22  +  ( 1  TEST  —  1 )*PNWT 
IFLAG  =  FLORET 

10  CALL  NEXT^(PTCHN,PTREC,FREC( IBIAS) ,PTARR, IFLAG, ♦9000,0, 0,0,0) 
C 

C  DISPLAY  DESCRIPTION  TEXT 

C - 

WRITE  (1,15) 

15  FORMAT!/) 

IF  (LPDA  .EQ.  0)  GOTO  30 
WRITE  (1,20)  PDA 
IF  (LPDA  .EQ.  0)  GOTO  30 
WRITE  (1,20)  POB 
IF  (LPDC  .EQ.  0)  GOTO  30 
WRITE  (1,20)  PDC 
IF  (LPDD  .EQ.  0)  GOTO  30 
WRITE  (1,20)  PDO 
20  FORMAT (39A2) 

30  WRITE  (1.40) 

40  FORMAT (/) 

RETURN 


C 

C 

9000  IERR  =  PTERR 

IF (PTERR.NE.22  .OR.  PTERR  .NE.  24)  GOTO  9900 
WRITE! 1 , 1002)  /*  ***CHECKOUT#»* 

1002  FORMATUX, 'CALLING  RECYCLE’) 

CALL  RECYCL 

GO  TO  10  /*  TRY  AGAIN 

9900  IF  (PTERR  .NE.  7)  GOTO  9905 
WRITE  ( 1 , 9901  )PTNM,F'TNAM 

9901  FORMAT (IX, ’TEST  ’,10A2,’  NOT  FOUND  IN  DATA  BASE  ’,16A2) 
RETURN 

9905  WRITE( 1 ,9910) PTERR, PTNM.PTNAM 

9910  FORMATUX,  'MIDAS  ERROR  ',13,'  IN  TEST  M6A2/1X, 

C’FROM  DATA  BASE  ’,16A2) 

RETURN 

END 
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C  GRFNCT *'  GET  RETRIEVAL  FUNCTION 
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C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

5 

10 


GRFNCT:  GET  RETRIEVAL  FUNCTION 

***************************************************************** 

*  REAL  TIRE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 

*  VERSION  1.0  JUNE  1,1980  » 

*  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY  « 

*  * 
********•*****««*•*************#•*•»**•***«*»***********«*•**•*** 


20 

30 


•CALLED  BY.  RETR 

•FUNCTION;’  GET  RETRIEVAL  FUNCTION  FROM  OPERATOR 
ARG  l:  MENU  INTEGER 

SUBROUTINE  GRFNCT (RENU) 

WRITE ( 1 > 10) 

F0RRAK1X,/, 'HISTORY  RENU'/, 

.  '  0  EXIT’,/, 

1  ’  1  RETRIEVE  AN  IMAGE  FOR  DISPLAY’/, 

2  '  2  RECREATE  ONE  TEST  RESULT'/, 

3  ’  3  RECREATE  AN  INSPECTION’,/, 

A  ’  A  DISPLAY  RAIN  RESULTS',/, 

5  '  5  DISPLAY  TEST  RESULTS’,/, 

6  '  6  DISPLAY  TAPE  RECORD’,/, 

7  ’  7  LIST  INDECIES’ ) 

READ! 1,20, ERR  =  301RENU 
FORMAT  (ID 

IF  (RENU  .LT.  0  .OR.  RENU  .6T.  7)  GOTO  5 
RETURN 
END 


C  INITAL :  SET  UP  TERMINAL  CODES  AND  OPEN  D  PAGE  OOOl 


C  INITAL: 
C 


SET  UP  TERMINAL  COOES  AND  OPEN  DATA  BASE  FILES 


C 

C 

C 

C 

C 

C 

C 

c 

c 


***************************************************************** 

*  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

**************************************************************** 

*  CALLED  BY!  AI 

*  FUNCTION!  1.  SET  UP  DATA  BASE  PARAMETERS  (DBPRM) 

*  2.  OPEN  DATA  BASE  FILES 

SUBROUTINE  INITAL(IERR) 


♦INSERT  PCOM 
♦INSERT  RCOH 
♦INSERT  PTCOM 
♦INSERT  RTCON 
♦INSERT  TCOM 
♦INSERT  CCOM 
♦INSERT  SYSCOM>KEYS.F 
C 

INTEGER  TYPE 


SET  UP  TERMINAL  CODES 


CALL  SETERM(TYPE) 

IF  (TYPE  .GT.  0  .AND.  TYPE  .LT.  A)  GOTO  10 
IERR  =  17 

IF  (TYPE  .EQ.  A)  GOTO  A 
RETURN 

A  CALL  TONL 

CALL  TNOU  (’This  f>ro*r3«  will  not  run  on  wour  tern  inal .  ’ ,  43) 

RETURN 
C 

C  GET  DATA  BASE  PARAMETERS 

C - 

10  CALL  DBPRM 

C 

C  OPEN  PLAN  DATA  BASE  FILES 
C - 

CALL  VOFENt(PLNAM,PLLEN,l ,FCHN, IERR) 

IF  (IERR  .EQ.  0)  GOTO  30 
URITEO  ,20)IERR,PLNAM 

20  FORMAT (IX,  'ERROR  M2,'  IN  OPENING  ’,  16A2) 

RETURN 


C 

30 


CALL  VOPEN^(PTNAN»PTLEN» 1 ,PTCHN, IERR) 

IF  (IERR  .EQ.  0)  GOTO  AO 

WRITE (1 ,20)IERR,PTNAM 

CALL  CLOALL 

RETURN 


C  OPEN  RESULTS  DATA  BASE  FILES 

C - 

40  CALL  VOFEN^(RLNAM,RLLEN, 1 ,RLCHN, IERR) 
IF  (IERR  .EQ.  0)  GOTO  50 
WRITE ( 1 ,20) IERR ,RLNAM 
CALL  CLOALL 
RETURN 

C 

50  CALL  VOPEN^(RTNAM,RTLEN, 1 , RTCHN, IERR) 

IF  (IERR  .EQ.  0)  GOTO  60 
WRITE! 1 ,20)IERR,RTNAM 
CALL  CLOALL 
RETURN 

C 

C  OPEN  TAPE  DATA  BASE  FILE 

60  CALL  VOPEN^ (TPNAM,TF’LEN,  1  ,TCHN, IERR) 

IF  (IERR  .EQ.  0)  GOTO  70 
WRITE! 1 , 20) IERR, TPNAM 
CALL  CLOALL 
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*  *  *  ****** 


C  INITAL:  SET  UP  TERMINAL  CODES  AND  OPEN  D  PAGE  0002 


RETURN 


C  OPEN  COMMAND  DATA  BASE  FILE 

C - 

70  CALL  VOPENi(CNNAM,CL£N,l.CCHN,IERR) 

IF  (IERR  .E 0.  0)  GOTO  80 
WRITE ( 1 ,  20) IERRiCNNAM 
CALL  CLOALL 
80  RETURN 

END 


C  INSP:  PERFORM  AN  INSPECTION  PAGE  0001 


C  INSP;  PERFORM  AN  INSPECTION 
C 

C  **** a************************************************************ 

c  * 

c  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1 r 1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  it*************************************************************** 

c 

C  ^CALLED  BY!  AI 

C  ^FUNCTION:  1.  GET  INSPECTOR  ID. PART#, TEST, SERIAL#  (GIIN) 

C  *  2.  GET  THE  PLAN  (GPLNM) 

C  *  3.  DO  THE  INSPECTION  (OINSP) 

C 

SUBROUTINE  INSP(EQUIP.IERR) 

INTEGER  11D(S) .PART  <10) .TEST 1D<10). SERIAL (10) 

LOGICAL  DEFALT, EQUIP, MORE 
C 

C  GET  INSPECTOR  INPUT!  INSPECTOR  ID,  PART*.  TESTNAME,  SERIAL# 

C - 

10  CALL  GIlNdlD, PART, TESTID, SERIAL, IERR) 

IF  (IERR.  NE.  0)  RETURN 
C 

C  GET  PLAN  RECORD 

C - 

CALL  GPLNM(PART. TEST  ID, DEFALT, IERR) 

IF  (IERR)  20,30,200 
C 

20  IERR  =  0 

GOTO  100 
C 

C  DO  THE  INSPECTION 
C - 

30  CALL  DINSPdID, SERIAL, EQUIP, DEFALT, IERR) 

IF  (IERR  .NE.  0)  RETURN 
C 

C  DO  MORE? 

C— - 

100  CALL  DMORE (MORE ) 

IF  (MORE)  GOTO  10 
200  RETURN 

END 
C 
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W  *  *  *  *%*C)tt**c 


C  INTAP!  INITIALIZE  TAPE 
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C  INTAP! 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


INITIALIZE  TAPE 

xxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

*  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

«  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

* 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
^CALLED  BY!  DINSP 

xFUNCTION:  1.  ASKS  IF  NAG  TAPE  NEEDED 

*  2.  ASSURES  THAT  CORRECT  TAPE  IS  ON-LINE 

*  3.  ASSURES  THAT  TAPE  IS  AT  CORRECT  POSITION 

*  4.  GETS  TAPE  RECORD 


SUBROUTINE  INTAP (EQUIP , NOTAPE , IERR ) 

EQUIP  =  EQUIP  INITIALIZED  FLAG 
NOTAPE  =  TAPE  INUSE  FLAG,  RETURNED 
IERR  =  ERROR  RETURNED 


C 
C 
C 
C 
C 

♦INSERT  TCOM 
♦INSERT  SYSCOM>PARM.K 
♦INSERT  SYSCOH>A^KEYS 
C 

LOGICAL  YSNO^ A, NEW, CSTR^A, NOTAPE , YES, EQUIP, I  TAPE , NT AP 
INTEGER  STATUS(3) ,NAME(10) 


C 

2 


C 

5 


IF  (.NOT.  EQUIP)  GOTO  10  /»  IS  EQUIPMENT  INITIALIZED? 

YES  =  YSNO^A( 'DOES  THIS  INSPECTION  REQUIRE  MAG  TAPE' ,37, A^DNO) 
IF  (YES)  NOTAPE  =  .FALSE. 

PAST  PRESENT 

IF  (.NOT.  YES  .AND.  NOTAPE)  RETURH  /*  NOTAPE  NOTAPE 

IF  (.NOT.  NOTAPE  .AND.  YES)  GOTO  5  /*  TAPE  TAPE 

IF  (NOTAPE  .AND.  YES)  GOTO  2  /«  NOTAPE  TAPE 

IF  (.NOT. NOTAPE  .AND.  .NOT.  YES)  GOTO  12  /*TAPE  NOTAPE 

NTAP  =  YSNO^ACIS  CORRECT  TAPE  MOUNTED  AND  READY’ ,33, A^DNO) 

IF  (.NOT.  NTAP)  GOTO  1 
IF  (TNAM(l)  .EQ.  0)  GOTO  15 
GOTO  5 

IF  (TNFL  +  1  .EQ.  TFCNT )  RETURN  /*  IS  TAPE  AT  CORRECT  POSITION? 
WRITE(1,6)TNAH 

FORMATdX,  'CURRENT  TAPE  ON  LINE !  ',10A2) 

ITAPE  =  YSNO^A( ' IS  THIS  CORRECT' , 15, A^DNO) 

IF  (ITAPE)  GOTO  8 


1 

WRITE (1,7) 

7 

FORMAT (IX, ’PLEASE  MOUNT 
CALL  PAUS(J) 

NEW  TAPE! 

f 

GOTO  14 

8 

N  =  TNFL  -  TFCNT  +  1 

p 

GOTO  70 

It 

10 

CALL  ZFIL(TREC,TSZB,0) 
CALL  TONL 

11 

YES  =  YSNO^A( 'DOES  THIS 

INSPECTION 

12 

IF  (.NOT.  YES)  NOTAPE  = 
IF  <, .NO) .  YES)  RETURN 

.TRUE. 

NOTAPE  =  .FALSE. 

C  GET 

p _ 

TAPE  NAME 

14 

CALL  ZFIL(TREC,TSZB,0) 
CALL  TONL 

15 

CALL  TNOUA( 'TAPE  NAME  (ENTER  "NEW" 

CALL  READL ( TNAM , NCHAR , 20 ) 

NEW  =  CSTRFA(TNAM, NCHAR, 'NEW' ,3) 
IF  (.NOT. NEW)  GOTO  30 

NEW  TAPE,  ADD  IT  TO  THE  DATA-BASE 

A5-1Q3 


*  *  *  *  *  ****** 


C  INTAP;  INITIALIZE  TAPE 
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C - - 

25  CALL  TN0UA< 'ENTER  NEW  TAPE  NAME;  ',21) 

CALL  RE ADL ( T NAN , NCHAR , 20 ) 

C A^  g001»( TCHN , TREC , TNAH, TP ARR , FLORET , >9000 , 0 , 0 , 0 , 0 ) 

C  ^ ' 

C  EXISTING  TAPE  -  FIND  IN  DATA  BASE 

§6  CALL_NixT>(TCHN7TRic7TNA«7TPARR,FL>RET,i9100,0,0,0,0) 

C 

C  CHECK  THE  TAPE  FOR  ONLINE 

C - 

50  TFCNT  =  1  /*  PRESENT  FILE  NO. 

CALL  T>HT(0»L0C(TREC) ,0, : 100000, STATUS) 

IF  (ANDC300,STATUS(2)>  .NE.  :300>  60T0  9200 
C 

C  REWIND  TAPE 
C - 

60  CALL  T>MT(0,L0C(TREC),0,s40, STATUS) 

IF( AND (STATUS! 2) , 1 )  .EQ.  0)  GOTO  60 
C 

C  ROVE  TO  CORRECT  PLACE  ON  TAPE 

C — - - - 

N  =  TNFL 

70  IF  (N  .EQ.  0)  RETURN 

CALL  T>«T(0,L0C(TREC), 0,:22200, STATUS)  /*MOV£  TAPE  1  FILE 
IF  (STATUS! 1 )  .EQ.  0)  GOTO  90 
80  CALL  T>(tT(0,L0C(TREC),0,  :100000, STATUS) 

IF  (STATUS! 1 )  .NE.  0)  GOTO  80 
90  N  =  N  -  1 

TFCNT  =  TFCNT  +  1 
GOTO  70 
C 

9000  IF  (TPERR  .NE.  12)  GOTO  9010 
WRITE  (1,9001)  TNAH 

9001  FORMAT!/, 10A2, ’  ALREADY  EXISTS.’) 

GOTO  10 

9010  IERR  ■  TPERR 

WRITE  (1,9011)  IERR, TNAfl 

9011  FORMAT ( ’RIDAS  ERROR  =’,I3,’,  KEY  =  ’,10A2) 

RETURN 

C 

9100  IERR  =  TPERR 

IF(TPERR.NE.7>  GOTO  9150 
C 

C  RECORD  NOT  FOUND 
WRITE( 1 ,9160) 

9160  FORMAT (IX, ’RECORD  NOT  FOUND’) 

IERR  =*  0 

GOTO  11  /*GIVE  OPERATOR  ANOTHER  CHANCE 
9150  IF ( TPERR. NE. 22  .OR.  TPERR  .NE.  24)  GOTO  9190 

CALL  RECYCL 

GOTO  30  /«  TRY  AGAIN 

9190  WRITE  ( 1,9191) IERR, TNAfl 

9191  FORMAT ( ’MIDAS  ERROR; ’, 13, ’ ,  TAPE  «  ',10A2> 

RETURN 

C 

9200  WRITE! 1 >  9210) 

9210  FORMAT (IX, ’PLEASE  MOUNT  TAPE  AND  PUT  ONLINE’) 

DO  9211  I  »  1,3 

CALL  TOOCT (STATUS! I ) ) 

9211  CALL  TNOUA( '  M> 

CALL  PAUS(J) 

GOTO  50 

END 
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C  INTIP:  INITIALIZE  THE  IMAGE  PROCESSOR  l  SYSTEM  500  SUBSYSTEM 
C 

C  a**************************************************************** 

£  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  a********************************************** ****************** 

C 

SUBROUTINE  INTIP(IERR) 


INTEGER  ZERO 
INTEGER  0 1 G I T < 40 ) 

COMMON  /OREZ/  ZER0(8191) 

DATA  DIGIT/’>DIGITIZE>$A J  ’,33*'  '/ 


IS  THE  IMAGE  PROCESSOR  ON? 

CALL  TONL 

CALL  ?NOUA( 'POWER  ON  THE  MODEL  70  <  HIT  A  KEY  ',30 
CALL  PAUS(J) 

ZER0(3029)=50 
ZERO < 3053 >=0 
ZER0(305O=0 


LOAD  COMMON 
CALL  CMLDR 

CLEAN  THE  DIRECTORY  AND  INITIALIZE  H70 

CALL  I CLEAN 

TURN  ON  THE  CAMERA 

CALL  CMDM70(DIGIT,IERR) 

C 

RETURN 

END 
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C  INTMOT:  INITIALIZE  MOTORS 
C 

c  *o#«*#****#****«#*#«*«******#*«*#«*****«**#*«#*«**«**«»********* 

1  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1.1980 

C  «  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

£  if****#***#*#*********##**##*#*##*#*#*##*#**#*******#**#*#*****#*# 


SUBROUTINE  INTMOT < IER) 


♦INSERT  SYSCOM>A*KEYS 
C 

LOGICAL  YSNOIA 
PARAMETER  NMOT  =  5 
INTE6ER  MOTOR(NMOT). STATUS 


C 

C 

C 

10 


MOTOR  I  POSITIONING  IMPLEMENTED  IF  MOTOR(I)  =  1 
**»  NOTE:  MOTOR  NUM8ERS  START  AT  0!  *** 

DATA  MOTOR  /O. 0,1, 0.0/ 


RESET  THE  ABORT  IF  SET 


15 


C 

C 

C 

20 


CALL  MOTION! :140000. 0.0, IER) 

IF  ( IER-1 )  20,15,900 

CALL  TNOUA( 'PUT  MOTOR  CONTROL  IN  REMOTE,  HIT  ANY  KEY 
CALL  PAUS(IGO) 

GO  TO  10 


,41) 


ASK  OPERATOR  IF  STANDARDIZATION  IS  NECESSARY 
IF  ( . NOT. YSNOtA! 


1 

2 


'HAS  COUNTER  BEEN  FIXED  SINCE  LAST  POUER-UP' ,42, A»DNO> ) 
GOTO  80 


C  OPERATOR  THINKS  EVERYTHING  IS  OK. 

C 

CALL  P0SIT<2.IVAL, STATUS) 

IF  (STATUS-1)  50,45,900 
CALL  TNOUA( 'PUT  MOTOR  CONTROL  IN  REMOTE, 
CALL  PAUS(IGO) 

GO  TO  40 


40 

45 


HIT  ANY  KEY  ’,41) 


C 

50 

51 


C 

80 


URITE(1,51)IVAL 

FORMAT ( IX,' COUNTER  SAYS  YOU  ARE  AT  Mi) 

IF  (YSNOtA( ’ IS  THIS  CORRECT ’, 15, AIDNO) )  RETURN 


100 

900 

C 


DO  100  N=1.NM0T 

IF  (OOTOR(N)  .EQ.  0)  GOTO  100 

MOT  «  N  -  1 

CALL  POSINT(MOT.IER) 

IF  (ICR  .NE.  0)  RETURN 

CONTINUE 

RETURN 


END 
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C  LISTIXj  LIST  KEYNAMES  BY  INDEX!! 
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LISTIX?  LIST  KEYNAMES  BY  INDEX# 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

x  VERSION  1.0  JUNE  1,1980 

x  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

x 

XXXXXXXXXXXOXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX<XXXXXX<<XXXXXXX<XXX<X 


XCALLED  BY i 
xFUNCTION  ) 
x 
X 
X 


DSPLD  AND  RETR 

1.  GET  UHAT  DATA  OPERATOR  WANTS  TO  VIEW  AND  INDEX*  x 

2.  SET  LENGTH  OF  KEYWORD  AND  OATA  BASE  CHANNEL  ft  * 

3.  GET  REQUESTED  DATA  x 

4.  DISPLAY/PRINT  THE  DATA  x 


ARC  1?  SPOOL  CHAN  « 

SUBROUTINE  LISTIX  (SF'CHN) 


♦INSERT  PCOM 
♦INSERT  PTCOM 
♦INSERT  RCOM 
♦INSERT  RTCOM 

JIIJIIrt  SY§COM>PARM.K 
C 

INTEGER  RMPRI 
PARAMETER  RMPRI 


=  20 


/<  RESULTS  MAIN  PRIMARY  KEYWORD  SIZE 


INTEGER  TMREC(TSZW) . T MARRY (14), TMERR , TMKE Y ( TNWT ) , TRCHR , TMWDS 
EQUIVALENCE ( TMARRY , TMERR  > 

C 

C  GET  MENUS 

C 

10  WRITE (1,20) 

20  FORMAT (IX,/, 'LIST  INOICIES  MENU'/ 

.  IX, '00  EXIT'/ 

.  IX, '10  PLANS  BY  NAME'/ 

.  IX, '11  PLANS  BY  TEST  NAME’/ 

.  IX, '20  TEST  NAMES'/ 

.  IX, '30  RESULTS  BY  NAME'/ 

.  IX, '31  RESULTS  BY  TEST  NAME'/ 

.  IX, '40  TEST  RESULTS’/ 

.  IX, '50  TAPE  NAMES'/ 

.  IX, '51  IMAGE  NAME’/) 

READ( 1 ,30,ERRS210)N , I 
FORMAT (211) 

WRITE  (1,33) 

FORMATS) 


30 

33 
C 

C  CHECK  FOR  VALIDITY  OF  MENU  SELECTION 
C 

0  .AND.  N  .LE.  5)  60T0  40 
0)  RETURN 


40 

C 

50 

C 

C 

C 


IF  (N  .GT. 
IF  (N  .LE. 
GOTO  10 
IF  (I  .GE. 
GOTO  10 


0  .AND.  1  .LE.  1)  GOTO  50 


C 
C 
C 
110 


IFLAG  *  FL4RET  ♦  FL4UKY  ♦  FL4FST 
SET  MIDAS  CHANNEL ,«CHAR  IN  KEYWORD 
GOTO  (110, 120, 130, 140, 150), N 


PLAN 


MCHN  *  PCHN 

IF  (I  .EQ.  0)  TMCHR  =  30 
IF  (I  .EQ.  1)  TMCHR  *  PNWT<2 
GOTO  140 


C  PLAN  TEST 
C 

120  MCHN  =  PTCHN 
TMCHR  =  20 
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GOTO  160 


C  RESULTS 
C 

130  MCHN  =  RLCHN 

IF  (I  .EQ.  0)  TMCHR  =  RMPRI*2 

IF  (I  .EG.  1)  TMCHR  =  RNWT*2 

GOTO  160 
C 

C  RESULTS  TEST 
C 

160  MCHN  =  RTCHN 

TMCHR  =  RNWT*2 
GOTO  160 

C  TAPE 

150  MCHN  =  TCHN 

IF  (I  .EQ.  0)  TMCHR  =  20 

IF  (I  .EQ.  1)  TMCHR  =  TNWT*2 

C 

C  CALCULATE  DWORDS  IN  KEYWORD 
C 

160  TMWDS  =  TMCHR/2 

C 

C  SPOOL  LOOP 
C 

170  DO  200  J  =  1,22 

C 

C  GET  DATA 
C 

180  CALL  NEXT$(MCHN,TMREC,TMKEY , TMARRY , 1 FLAG, 69000, 1 , 

IFLAG  =  FL6USE  ♦  FLORET  ♦  FL6PLW  ♦  FLIUKY 
IF  (SPCHN  .NE.  0)  GOTO  190 


C 

C 

C 


OUTPUT  LINE  TO  TERMINAL 

CALL  TNOUdMKEY,  TMCHR) 
GOTO  200 


C 

C  OUTPUT  LINE  TO  SPOOL  FILE 
C 

190 


200 
C 


CALL  WTLIN6( SPCHN , TAKE Y , TMWDS , IERR) 
IF  (IERR  .NE.  0)  GOTO  9100 
CONTINUE 


C  END  OF  SPOOL  LOOP  -  GO  BACK  AND  GET  MORE 

C 

C 

IF  (SPCHN  .NE.  0)  GOTO  170 
CALL  PAUS(J) 

IF  (J  .NE.  0)  GOTO  170 
210  RETURN 
C 

C  ERRORS 
C 

9000  IF  (TMERR  .NE.  7)  GOTO  9005 
WRITE  (1,33) 

J  =  1 

IF  (SPCHN  .EG.  0)  CALL  PAUS(J) 

IF  (J  .EQ.  0)  RETURN 


9005 


9010 

9020 

C 

9100 

9110 


GOTO  10 

IF  (TMERR  .NE.  22  .AND.  TMERR  .NE.  26)  GOTO  9010 


CALL  RECYCL 
GOTO  180 
WR I TE ( 1 , 9020 ) TMERR , TMKE Y 
FORMATdX,  ’MIDAS  ERROR  M3. 
RETURN 


IN  FINDING  ’ , 25A2 > 


WRITE (1 ,91 10) IERR, SPCHN, TMKEY 

FORMATdX,' ERROR  M3,'  IN  WRITING  TO  SPCHN 

RETURN 


13, 


END 
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C  MOFYC:  MODIFY  IMAGE  PROCESSOR  COMMAND 
C 

C  ***********************##**********#«**«#*«*«**#«***«**«*******«« 

c  * 

c  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  **************************************************************** 

c 

c  ^CALLED  FROM:  PLAN 

C  *FUNCTION:  1.  GET  COMMAND  NAME  FROM  OPERATOR 

C  *  2.  GET  COMMAND  RECORD  FROM  DATA  BASE 

C  *  3.  EDIT  THE  RECORD 

C  *  6.  STORE  THE  NEW  RECORD  IN  DATA  BASE 

C 

SUBROUTINE  MDFYC(IER) 

C 

(INSERT  CCOM 
♦INSERT  SYSCOM>AfKtYS 
♦INSERT  SYSCOM>PARM.K 
C 
C 

INTEGER  NAME (16) 

C 

DATA  NAME  /’DEMO. SCREEN. FT  ’/ 

C 

C  Open  a  channel  to  the  screen  teaplate  file 

C - - - - ____________________________ 

CALL  VOPEN((NAME ,32, 1 , 1FCH, 1ER)  /*  OPEN  FOR  READ 

IF  ( IER  .NE.  0)  GOTO  9000 
C 

IS  =  318 
IE  =»  319 

NEWSCR  =2  /*  DO  NOT  ERASE  THE  SCREEN  TO  START 

C 

C  Clear  record  buffer 

C- - - - — 

10  CALL  ZFIL(CREC,CSZB,0) 

C 

C 

C  Get  the  test  naae. 

c - 

20  CALL  PEDIT(IFCH,CREC, IS, IE, NEWSCR) 

C 

C  Get  the  record  for  editing. 

C . . . . . . 

30  CALL  LOCK((CCHN,CREC,CNAM, CARR, FL9RET, (9100, 0,0, 0,0) 

C 

C  Edit  the  file 

C - - - 

IS  a  318 

IE  =  330 

CALL  PEDIT(IFCH,CREC, IS, IE, NEWSCR) 

C 

C  Store  the  record 

C . . 

CALL  UPDAT9 (CCHN,CREC,CNAM, CARR, FL9USE, (9200, 0,0, 0,0) 

C 

C  MORE? 

C— . 

300  IF  ( YSNOtA ( ' More ’ , 6 , AtDNO ) )  GOTO  20 
C 

C  CLOSE  THE  SCREEN  CHANNEL  NO. 

C - - — . . . 

600  CALL  CLOS(AdFCH) 

RETURN 

C 

9000  WRITE  (1,9001)  IER, NAME 

9001  FORMAT! 'ERROR  ',13,',  OPENING  FILE  ',16A2> 

RETURN 

C 

9100  IF  (CERR  .NE.  7)  GOTO  9110 
WRITE  (1,9101)  CNAN 

9101  FORMAT! 10A2, '  NOT  FOUND’) 
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GOTO  300 

9110  IF  (CERR  .EQ.  22)  GOTO  30 
IF  (CERR  .EQ.  24)  GOTO  30 

9111  WHSlIUIUi'LHPMaP.-.H.-  KEY  .  M5A2> 

GOTO  400 
C 
C 

9200  WRITE  (199101)  CERR.CNNAM 

9201  FORMAT  ( 'MIOAS  UPOAT  ERROR  =',I3,’  KEY  =  M5A2) 
GOTO  400 

C 

C 

END 


C  MDFYP:  MODIFY  PLAN  PAGE  0001 


C  MDFYP :  MODIFY  PLAN 
C 

C  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


C  X  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  x 
C  x  VERSION  1.0  JUNE  1.1980  x 
C  x  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  x 
C  x  x 


C  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  MDFYP(IER) 

C 


C  xCALLED  FROM!  PLAN  x 
C  XFUNCTION:  1.  ASK  OPERATOR  FOR  PART#,  INSPECTION  NAME  x 
C  x  2.  GET  THE  PLAN  RECORD  x 
C  x  3.  ALLOW  OPERATOR  TO  MOOIFY  THE  PLAN  RECORD  x 
C  x  4.  DELETE  OLD  AND  INSERT  NEW  SECONDARY  KEYS  x 
C 


IER  -  0 

CALL  TNOU  ( ’NOT  IMPLEMENTED ! ’,16) 

RETURN 

END 
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C  ADFYT:  AOOIFY  TEST  PROCEDURE 
C 

C  ***«»«***«**«*******«*«*««««*«**««**••*••«*«•«««****«*«««***«*«** 

C  *  REAL  TIRE  XRAY  -  AUTOAATED  INSPECTION  SYSTEA  * 

C  *  VERSION  1.0  JUNE  1,1980  * 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  « 

c  *  # 

c  ^***o***o*****o*******»*o*#***oo******#******«#***f  ******* 

c 

C  *CALLED  FROfl:  PLAN 

C  ^FUNCTION:  1.  GET  TEST  NAAE  FROA  OPERATOR 

C  *  2.  GET  TEST  RECORD  FROM  DATA  BASE 

C  *  3.  EDIT  THE  RECORO 

C  *  A.  STORE  THE  NEW  RECORD  IN  DATA  BASE 

C 

SUBROUTINE  ADFYT < IER) 

C 

♦INSERT  PTCOA 
♦INSERT  SYSCOA>AIKEYS 
♦INSERT  SYSCOA>PARA.K 
C 
C 

INTEGER  NAAEdA) 

INTEGER  KEYO(IO)  /*  PRIAARY  KEY 

C 

DATA  NAAE  /’DEAO. SCREEN. FT  ’/ 

C 

C  Open  s  channel  to  the  screen  teerlste  Tile 

c - - - - — 

CALL  V0PEN^(NAAE,32, 1 , IFCH, IER)  /«  OPEN  FOR  READ 

IF  (IER  .NE.  0)  GOTO  9000 
C 

IS  ■  197 
IE  *  199 

NEWSCR  =2  /*  DO  NOT  ERASE  THE  SCREEN  TO  START 

C 

C  Clear  record  buffer 

C - 

10  CALL  ZF1L (PTREC, PTSZB,0) 

C 

C 

C  Get  the  test  ns«e. 

C - 

20  CALL  PEDITdFCH, PTREC, IS, IE, NEWSCR) 

C 

C  Get  the  record  for  editing. 
c - 

30  CALL  LOCKdPTCHN, PTREC, PTNA,PTARR, FLORET, ♦9100,0, 0,0,0) 

C 

C  Edit  the  file 

C . . . 

IS  =  275 

IE  =  297 

CALL  PEDITdFCH, PTREC, IS, IE, NEWSCR) 

C 

C  Store  the  record 

C - - 

CALL  UPDATE ( PTCHN, PTREC, PTNA,PTARR,FL ♦USE, ♦9200,0,0, 0,0) 

C 

C  AORE? 

C— . 

300  IF  (YSN0^A('Aore’,4,A«N0>)  GOTO  20 
C 

C  CLOSE  THE  SCREEN  CHANNEL  NO. 

C . - . 

400  CALL  CLOSMdFCH) 

RETURN 

9000  WRITE  (1,9001)  IER, NAAE 

9001  FORAAT( 'ERROR  ',13,',  OPENING  FILE  ' , 1AA2) 

RETURN 

C 

9100  IF  (PTERR  .NE.  7)  GOTO  9110 
WRITE  (1,9101)  PTNA 


*  *  *  *  ifc 
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9101 

FORMAT ( 10A2, '  NOT  FOUND') 

GOTO  300 

9110 

IF  (PTERR  ,EQ.  22)  GOTO  30 

IF  (PTERR  .EG.  24)  GOTO  30 

WRITE  (1,9111)  PTERR, PTNM 

9111 

FORMAT ( 'MIDAS  LOCK  ERROR  =’,13,’  KEY  =  ' 

,15A2> 

C 

GOTO  400 

C 

9200 

WRITE  (1,9101)  PTERR, PTNM 

9201 

FORMAT( 'MIDAS  UPDAT  ERROR  =',I3,'  KEY  = 

' , 15A2) 

C 

GOTO  400 

C 

END 

C  MKFMC:  MAKE  IMAGE  COMMAND  FROM  OLD  PAGE  OOOl 


C  AKFMC.'  MAKE  IMAGE  COMMAMO  FROM  OLO 
C 

C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c  * 

C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1.1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C 

SUBROUTINE  MKFAC(IER) 

C 

C  XCALLED  FROM:  PLAN 

C  xFUNCTION!  1.  ASK  OPERATOR  FOR  COMMAND,  INSPECTION  NAME 

C  *  2.  GET  THE  COMM  RECORD 

C  *  3.  ALLOW  OPERATOR  TO  MODIFY  THE  COMM  RECORD 

C  *  4.  WRITE  NEW  RECORD 

C 

IER  ■  0 

CALL  TNOU  ('NOT  IMPLEMENTED! M 6) 

RETURN 

END 
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C  NKFNP!  HAKE  NEW  PLAN  FRON  OLD 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NKFNP!  MAKE  NEU  PLAN  FRON  OLD. 

** *****#******#**«#**#***#*##***«##«»*#** ************************ 


*  REAL  TINE  XRAY  -  AUTONATED  INSPECTION  SYSTEN  * 

*  VERSION  1.0  JUNE  1,1980  * 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  * 

*  * 


a**************************************************************** 
SUBROUTINE  NKFNP(IER) 

*CALLED  FRON!  PLAN 

^FUNCTION:  1.  GET  OLD  PLAN  NANE  FRON  OPERATOR 

*  2.  GET  NEW  PLAN  NANE  FRON  OPERATOR 

*  3.  CHECK  FOR  EXISTANCE  OF  NEU  PLAN  NANE 

*  4.  EDIT  OLD  PLAN 

*  5.  INSERT  NEU  PLAN  INTO  DATA  BASE 

IER  =  0 

CALL  TNOU  (’NOT  INPLENENTED! ’ , 16) 

RETURN 

END 


C  NKFNT! 


NAKE  A  NEU  TEST 


PLAN  FRON  OLD. 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


C 

c 

c 

c 

c 


NKFNT!  NAKE  A  NEU  TEST  PLAN  FRON  OLD. 

#* a****************************** a******************************* 


*  * 

*  REAL  TINE  XRAY  -  AUTONATED  INSPECTION  SYSTEN  * 

*  VERSION  1.0  JUNE  1,1980  * 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  « 

*  * 


a**************************************************************** 
SUBROUTINE  NKFNT(IER) 

^CALLED  BY!  PLAN 

^FUNCTION:  1.  GET  OLD  AND  NEU  TEST  NANES  FRON  OPERATOR 
«  2.  CHECK  FOR  EXISTANCE  OF  NEU  TEST  NANE 

*  4*.  5nIer?hneue?est  into  data  base 

IER  *  0 

CALL  TNOU  (’NOT  INPLENENTED! ' ,16) 

RETURN 

END 
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C  MOTOR:  CONTROLS  MOTION  OF  A  MOTOR 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


MOTOR:  CONTROLS  MOTION  OF  A  MOTOR 
***************************************************************** 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 

*  VERSION  1.0  JUNE  1,1980  * 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  * 

*  * 
**»**«**«$**********«*******x*********s«*«*s*s***$*****«********* 

SUBROUTINE  MOTOR ( MOT , SPEEO , POS , IER ) 


PARAMETER  MSEC=1000 
INTEGER  MOT, SPEED, POS, STATUS, DIR 
I NTEGER  SLWDN , STRBRK , TOL , DI F , VALUE , VALUE  1 
♦INSERT  SYSCOH>CRTCTRL 
C 


ARGUMENTS: 
MOT 
SPEED 
POS 
IER 


C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 

C  PARAMETERS: 
C 

STRBRK 


=MOTORN ,  FROM  0  TO  7 

=THE  RELATIVE  SPEED  OF  THE  MOTOR,  FROM  0  TO  127 
=THE  TARGET  POSITION  THAT  IS  DESIRED 

=ERROR  FLAG  0  FOR  GOOD 

1  FOR  CONTROL  IN  MANUAL 

2  GPIB  ERROR 


SLWDN 
TOL 

SET  UP  THE  PARAMETERS 


=THE  NUMBER  OF  COUNTS  AWAY  FROM  TARGET  POSITION  THAT  THE 
BRAKES  ARE  APPLIED 

=THE  NUMBER  OF  COUNTS  AWAY  FROM  TARGET  POSITION  THAT  THE 
MOTOR  IS  SLOWED  DOWN 

=T HE  TOLERANCE  THAT  IS  ALLOWED  AWAY  FROM  TARGET  POSITION 


C 

C 

C 

C 

r 

C 

20 


PARAMETER  (STRBRK* :3, SLWDN*: 100, T0L=:2> 
IER=Q 

IF  SPEED  IS  ZERO  THEN  BYPASS 

IF (SPEED  .EQ.  0)60  TO  999 

FIND  THE  CURRENT  POSITION 

CALL  POSIT(MOT, VALUE, STATUS) 

IF  (STATUS-1)  30,950,990 


C  COMPUTE  THE  DIRECTION  TO  MOVE 
C 

30  IF (VALUE  .GT.  P0S)D1R=1 

IF( VALUE  .LE.  P0S)0IR=0 
IF (VALUE  .LT.  0)0IR=0 
IF(POS  .GT.  VALUE )DIF=POS-VALUE 
IF (POS  .LE.  VALUE )DIF=VALUE-POS 
IF (DIF  .LT.  SLWDN1G0  TO  100 

8  SEE  IF  THERE  YET 
C 

CALL  MOTION(MOT, DIR, SPEED, STATUS) 
40  CALL  POSIT(MOT, VALUE, STATUS) 

IF  (STATUS-1)  45.950,990 
45  IF(POS  .GT.  VALUE  )DIF*POS-VALIJE 

IF (POS  .LE.  VALUE )DIF=VALUE-POS 
IF (DIF  .LT.  SLWDN)GO  TO  100 
GO  TO  40 
C 

C  ALMOST  THERE!  SLOW  DOWN. 

C 

100  I F < 0 1 F  .LT.  STRBRK )60  TO  200 

SDIF*DIF 

CALL  MOTION(MOT, DIR, 20, STATUS) 
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C  KOTOR:  CONTROLS  NOTION  OF  A  KOTOR 


PA6E  0002 


110  CALL  POSIT (NOT . VALUE , STATUS) 

IF  (STATUS-1)  115,950,990 
115  IF (POS  .GT.  VALUE >DIF=POS-VALUE 

IFINE  :B:  STOiMut-™ 

I F ( 0 IF  .LT.  STRSRK)GO  TO  200 
GO  TO  110 

C  PUT  ON  THE  BRAKES 
C 

200  CALL  KOTION(KOT , DIR, 0, STATUS) 
210  CALL  POSIT(NOT, VALUE .STATUS) 

IF  (STATUS-1)  215,950.990 
215  VALUE1-VALUE 

*  PAU?SLE0lLiEPi5*SEC, 


C 

CALL  POSIT(KOT, VALUE. STATUS) 

IF  (STATUS-1)  225,950,990 
225  1F(VALUE  .NE.  VALUE1 )G0  TO  210 
IF (POS  .GT.  VALUE ) DIFsPOS-VALUE 
IF (POS  .IE.  VALUE )DIF- VALUE -POS 
IF(OIF  .LE.  TOLJGO  TO  999 
GO  TO  30 
C 

C  SOHEONE  PROBABLY  SNITCHED  FROH  REKOTE  TO  LOCAL  IN  THE 
C  KIDDLE  OF  NOVING  TO  THE  TARGET  LOCATION.  SHAKE  ON  THEN 
C 

950  CONTINUE 

IER=1 
GO  TO  999 
C 

C  ERROR  ON  GPIB 
C 

990  CONTINUE 
IER=2 
C 

999  RETURN 

END 
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C  MOVTAP:  VERIFY  AMO  MOVE  TAPE 
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C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


MOVTAP:  VERIFY  ANO  MOVE  TAPE 

##***#***##***#**#*###o*«*#**« *««««•«*«««***««*«*••*«««»*««*«*** 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY 

* 

******#iHH<**************#***#«#««**«***#****#**«*«#«#***#***#*«* 


^CALLED  BY:  RVIM6  AND  RVINSP 

^FUNCTION:  1.  IF  A  NEU  TAPE,  MAKE  SURE  ON-LINE,  AND 
*  2.  MOVE  THE  TAPE  TO  THE  CORRECT  POSITION 

SUBROUT I NE  MOVTAP <  NE V , NF I L , I ERR ) 

NEU  =  FLAG  FOR  NEU  MOUNT  OR  ALREADY  INSTALLED 
NF IL  =  FILE  NUMBER  TO  POSITION  TAPE 
IERR  =  ERROR  RETURNED 


REWIND 


♦INSERT  TCOM 
♦  INSERT  SY8COM2AOKEYS 


LOGICAL  NEU 

INTEGER  STATUS(3> ,STAT1 ,STAT2,UPDN,STATR(3) .STATRl 


C 

C 

C 

C 

C 


C 

C 

C 

C- 

20 


EQUIVALENCE  (STATUS! 1 ) ,STAT1 ) , 
EQUIVALENCE  (STATR.START1 ) 


(STATUS (2), ST AT2) 


TRACE  N , NF IL , UPON , TFCNT 
MFIL  *  NFIL 


/*  ***CHECKOUT*** 


UPDN  =  1 

MOVE  =  : 22200  /*  MOVE  FORWARD  ONE  FILE 

IF  (.NOT.  NEW)  GOTO  40 

NEW  TAPE,  VERIFY  THAT  TAPE  UNIT  IS  SET  UP 

CHECK  THE  TAPE  FOR  ONLINE 


TFCNT  =  1  /*  PRESENT  FILE  NO. 

CALL  TWT  ( 0 ,  LOC  ( TREC ) , 0 , : 100000, STATUS > 

CALL  MSDUMP( 'SELECT', 6, STATUS)  /*»**CHECKOUT 
IF  (AND( :300,STAT2)  .NE.  :30Q)  GOTO  9200 


C  REWIND  TAPE 
C - 

30  CALL  UMT(0,L0C(TREC),0,:40,STATR> 

C  CALL  MSDUMP( 'REWIND', 6, STATR)  /»»**CHECKOUT 

32  IF ( AND(STATR1 , 1 )  .EQ.  0)  GOTO  35 

CALL  T9MT(Q,L0C(TREC) ,0, <100000, STATUS) 

35  N°=°NF?L  -  TFCNT 

GO  TO  70 

TAPE  ALREADY  INSTALLED  POSITION  IT 

N  *  NFIL  -  TFCNT 
IF  (N  .GE.  1)  GOTO  70 
UPDN  «=  -1 

MOVE  =  : 20100  /«  BACKWARD  ONE  FILE 

N  =  -N 


C 

C 

C~ 

40 


C 

C 

C 

C- 

70 


SO 

90 


MOVE  TO  CORRECT  PLACE  ON  TAPE 
IF  <N  .EQ.  0)  RETURN 

CALL  TOMT ( 0, LOC ( TREC ) ,0, MOVE, STATUS)  /*ROVE  TAPE  1  FILE 

IF  (STAT1  .EQ.  0)  GOTO  90 

CALL  HAT  (0,  LOC  (TREC)  ,0, :  100000,  STATUS) 

IF  (STAT1  .NE.  0)  GOTO  80 
N  e  N  -  1 

TFCNT  =»  TFCNT  ♦  UP ON 
GOTO  70 
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C  Pines  PROCESS  THE  IMAGE 


PA6E  OOOl 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PIHGJPROCESS  THE  IMAGE 

s**************************************************************** 
*  * 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 

*  VERSION  1.0  JUNE  1.1980  * 

*  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY  * 

*  * 
**************************** ****** **************** ********* ****** 

•CALLED  BY:  DINSP 
.FUNCTION,  k 

*  3.  ALLOW  OPERATOR  TO  ADJUST  MOTORS, CAMERA 

*  4.  DO  EACH  IMAGE  PROCESSING  REQUEST  (CMDM70) 

*  5.  IF  CODE  »  0:  DO  NEXT  PROCESS  IMMEDIATELY 

*  1J  WAIT  FOR  OPERATOR 

*  2:  WRITE  IMAGE  TO  TAPE 

*  3:  LET  OPERATOR  POSITION  MOTOR, 

*  THEN  TELL  HIM  MOTOR  POSITION 


SUBROUTINE  PIHGdTEST, NOTAPE,  IERR) 

ITEST  =  TEST  SEQUENCE  NO 
NOTAPE  =  FLAG  FOR  NOTAPE 
IERR  =  ERROR  CODE  RETURNED 

INTEGER  S500N(6) , I  ST AT (2) , DIGIT (40) , COMND, DIRCK( 40) 
LOGICAL  MORE 


•INSERT  PTCOM 
•INSERT  RTCOM 
•INSERT  TCOM 
•INSERT  CCOH 
•INSERT  SYSCOM>PARM.K 
C 

LOGICAL  NOTAPE 
DATA  DIGIT/’>DIGITIZE>«A5 
OATA  DIRCK/'>0IRCK;  ',36*' 


,33*' 

'/ 


C 

C 

C 

C- 

C 

C 

C 


CLEAN  THE  IMAGE  DIRECTORY 
CALL  CLEAN 

SET  IMAGE  PROCESSOR  TO  FREERUN  AND  GIVE  OPERATOR  A  CHANCE  TO  FINE 
TUNE  THE  MOTORS  AND  CAMERA 


C 

C 

C- 


CALL  CMDM70( DIGIT , IERR) 

WRITE! 1 ,5) 

FORMAT (IX, ’ADJUST  MOTORS  AND  CAMERA  AS  NECESSARY 
1  READY',//) 

CALL  PAUS(J) 

DO  EACH  IMAGE  REQUEST 


HIT  A  KEY  WHEN 


7 

8 


IBIAS  =  177 
DO  100  I  =  l.PNIHG 
COMND  =  PTRECT IBIAS) 

IF  (COMND  .EQ.  0)  RETURN 
IF  (COMND  .EQ.  ’  ')  GOTO  8 

IFLAG=FL*RET 

CALL  NEXH(CCHN,CREC.PTREC( IBIAS), CARR, IFLA6, <9000, 0,0, 0,0) 
DO  7  J  *  1 ,CNPROC 

JB1AS  =  11  ♦  ( J-l )*CNWI 
ICMND  --  CREC(JBIAS) 

IF  (ICMND  .EQ.  0)  GOTO  7 
IF  (ICMNO  .EQ.  '  ')  GOTO  7 

CALL  CMDM70(CREC( JBIAS) , IERR) 

CONTINUE 

NEXT  =  IBIAS  4  40 
IBIAS  =  IBIAS  4  PNWI 
MOVE  *  PTREC(NEXT) 

IF  (HOVE  .LE.  0)  GOTO  100 
IF  (MOVE  .GT.  4)  GOTO  98  „ 
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C  PIMG.'PROCESS  THE  IMAGE 
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C 

10 


GOTO  ! 10, 20, 30, 40) ,  MOVE 

Sftk  ?8KS<J) 


C  SAVE  IMAGE  ON  TAPE 

20  5WNMU,ra?si88N. 

CALL  SVIMTIS500N) 


16) 


C  CREATE  THE  TAPE  ID  RECORD 
CALL  SVTAPR(IERR) 

GOTO  100 
C 

C  ALLOW  OPERATOR  TO  POSITION  MOTOR*  THEN  TELL  HIM  WHERE  HE'S  AT 
30  CALL  PAUS(J) 

CALL  POSIT (2* IVAL *  1ST AT ) 

WRITE!  l.DIVAL 

1  FORMAT! IX,  'CURRENT  POSITION  IS  M5) 

CALL  DMORE!MORE) 

IF  !RORE)  GOTO  30 
GOTO  100 
C 

C  DIRCK 
C 

40  CALL  CHDM7G!DIRCK> IERR) 

CALL  TNOUA(PTREC! I8IAS) *  40) 

CALL  PAUS! J) 

GOTO  100 
C 

C  ERROR  OCCURRED 
C 

98  WRITE  (1.99)  MOVE. I 

99  FORMAT! '**ERROR««  PLANNED  NEXT  MOVE  *’,I3.'  TEST' . 13) 
C 

100  CONTINUE 
C 

C  SET  IMAGE  PROCESSOR  TO  FREERUN 
CALL  CMDM70!DIGIT> IERR) 

C 

RETURN 

C 

C  MIDAS  ERROR  IN  FINDING  COMMAND  FILE 

C 

9000  IERR  =  CERR 

IF !CERR.NE.22  .OR.  CERR  .NE.  24)  GOTO  9900 
CALL  RECYCL 

GO  TO  6  /*  TRY  AGAIN 

9900  IF  ICERR  .NE.  7)  GOTO  9905 
JB1AS=IBIAS*9 

WRITE! 1 ,9901 ) (PTREC! I ) > IeIBIAS, JBIAS) .CNNAM 

9901  FORMATdX. ’TEST  ’.10A2,'  NOT  FOUND  IN  DATA  BASE  ’.16A2) 
CALL  TDUMP < PTREC ! IBI AS) . 20) 

RETURN 

9905  JBIAS  =  I  BIAS  ♦  9 

WRITE!1 ,9910) CERR. ! PTREC! 1 ) ,  I-IBIAS, JBIAS) .CCNAM 
9910  FORMAT! IX, 'MIDAS  ERROR  M3,'  IN  TEST  '.16A2/1X, 

C’FROM  DATA  BASE  ’.16A2) 

RETURN 

END 


C  PLAN!  MAIN  PLANNING  ROUTINE 
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C  PLAN:  MAIN  PLANNING  ROUTINE 
C 

C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C  x  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  »  VERSION  1.0  JUNE  1,1980 

C  x  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  x 

C  XXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

C 

C 

C 

C 

5 

C 


C 

C 

100 

C 

C 

200 

C 

C 

300 

C 

C 

400 

C 

C 

500 

C 

C 

600 

C 

C 

700 

C 

C 

800 


k. 


XCALLED  FROM: 
*FUN CTION?  1. 
x 


2. 


AI 

GET  P|.  ANN  I  j|G  _FUNC  T  {  ON  DESIRED. (GPFNCT) 


x 

x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


CALL 

CNEWP 

CNEUT 

MKFMP 

HKFMT 

NDFYP 

MDFYT 

DLTP 

DLTT 

DLTR 

DSPLD 

CNEWC 

MOFYC 

DLTC 


FOLLOWING  SUBROUTINES! 

CREATE  A  NEW  PLAN 

CREATE  A  NEW  TEST  PLAN 

MAKE  A  NEW  PLANFROM  AN  OLD  ONE 

HAKE  A  NEW  TEST  PLAN  FROM  AN  OLD  ONE 

MODIFY  A  PLAN 

MODIFY  A  TEST  PLAN 

DELETE  A  PLAN 

DELETE  A  TEST  PLAN 

DELETE  A  RESULT 

DISPLAY  DATA 

CREATE  A  NEW  COMMAND  FILE 
MODIFY  A  COMMAND  FILE 
DELETE  A  COMMAND  FILE 


SUBROUTINE  PLAN(IER) 

IER  -  0 

CALL  GPFNCT(MENU) 

IF  (MENU  .LE.  0)  RETURN 

GOTO  < 

1  DO ,  200 , 300 , 400 , 500 . 600 , 700 , 800 , 900  , 
1000,1100,1200,1300,1400 


NU 


CREATE  NEW  PLAN 
CALL  CNEWP(IER) 

IF  (IER)  9000.5.9000 

CREATE  NEW  TEST  PROC. 

CALL  CNEWT(IER) 

IF  (IER)  9000.5,9000 

ADD  A  COMMAND  FILE 
CALL  CNEWC (IER) 

IF  (IER)  9000,5,9000 

MAKE  NEW  PLAN  FROM  OLD 
CALL  HKFHP(IER) 

IF  (IER)  9000,5,9000 

HAKE  NEW  TEST  PROC  FROM  OLD 
CALL  HKFMT (IER) 

IF  (IER)  9000,5,9000 

MAKE  A  NEW  COMMAND  FROM  OLD 
CALL  HKFMC(IER) 

IF  (IER)  9000,5,9000 

MODIFY  PLAN 

CALL  MDFYP(IER) 

IF  (IER)  9000,5,9000 

MODIFY  TEST  PROC 
CALL  MDFYT (IER) 

IF  (IER)  9000,5,9000 

MODIFY  A  COMMAND  FILE 
CALL  MOFYC (IER) 

IF  (IER)  9000,5,9000 
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x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


*  m  *  *  * 


C  PLAN!  MAIN  PLANNING  ROUTINE 


C 

1000 

i 

1100 

c 

c 

1200 

c 

c 

1300 

C 

c 

1400 

C 

C 

9000 


DELETE  A  PLAN 
CALL  DL1PUER) 

IF  (IER)  9000,5,9000 

DELETE  A  TEST  PROC. 

CALL  DLTT(IER) 

IF  (IER)  9000,5,9000 

DELETE  RESULTS 
CALL  OLTR(IER) 

IF  (IER)  9000,5,9000 

DELETE  A  COWHAND  FILE 
CALL  DLTC(IER) 

IF  (IER)  9000,5,9000 

DISPLAY  FUNCTIONS 
CALL  DSPLD(IER) 

IF  (IER)  9000,5,9000 


RETURN 

END 
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C  PHOT :  POSITION  MOTORS 
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C  PHOT:  POSITION  HOTORS 
C 

C  *  REAL  TIHE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  « 
C  *  VERSION  1.0  JUNE  1,1980  * 
C  *  BOEING  AEROSPACE  OUALITY  ASSURANCE  TECHNOLOGY  « 
C  ♦  * 
C  ♦♦♦»♦**♦♦♦♦♦♦♦*♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦ 


♦CALLED  BY:  DINSP 

♦FUNCTION:  1.  POSITION  A  MOTOR  (MOTOR) 

♦  2.  IF  MOTOR  CONTROL  PUT  TO  MANUAL  DURING 

♦  POSITIONING,  PAUSES  UNTIL  IN  REMOTE 

SUBROUTINE  PHOT 


(INSERT  PTCOM 
C 

C  TURN  ON  MOTORS  WHICH  ARE  TO  RUN  CONTINUOUSLY  DURING  POSITIONING 
C 

IPOS  =  167 
NDIR  =  1 

DO  5  I  =  1 ,PNMOT 

NSPEED  *  PTREC( IPOS+1 ) 

NPOS  =  PTREC(IPOS) 

IF  (NPOS  .NE.  -1)  GOTO  7 
ft  -  I  -  1 

CALL  H0T10N(H, NDIR, NSPEED, IERR) 

IF  (IERR  .NE.  0)  GOTO  30 
IPOS  =  IPOS  +  PNWM 
CONTINUE 

POSITION  MOTORS  WHICH  HAVE  ENCOOERS 

IPOS  «  167 

DO  20  I  =  1 rPNMOT 

NSPEED  »  PTREC( IPOS+1 ) 

IF  (NSPEED  .EO.  0)  GOTO  10 
NPOS  ■  PTREC(IPOS) 

IF  (NPOS  .LE.  0)  GOTO  10 
H  3  I  -  1 

8  CALL  MOTOR(M, NSPEED, NPOS, IERR) 

IF  (IERR  .NF.  0)  GOTO  30 
10  IPOS  ■  IPOS  +  PNWM 

20  CONTINUE 
C 

C  TURN  OFF  MOTORS  WHICH  WERE  RUNNING  CONTINUOUSLY  DURING  POSITIONING 
C 

IPOS  3  167 
DO  25  I  3  1 ,PNMOT 

NSPEED  -  PTREC( IPOS+1) 

NPOS  =  PTREC(IPOS) 

IF  (NPOS  .NE.  -1)  GOTO  27 
M  =  I  -  1 

CALL  HOTION(H, NDIR, 0, IERR) 

IF  (IERR  .NE.  0)  GOTO  30 
27  IPOS  =  IPOS  +  PNWM 

25  CONTINUE 
RETURN 


C 

30 


C 

60 

61 


IF  (IERR  .NE.  1)  GOTO  60 

CALL  TNOUACPUT  MOTOR  CONTROL  IN  REMOTE,  HIT  ANY  KEY 
CALL  PAU8( J) 

GOTO  8 


.  41 ) 


WRITE ( 1 , 61 >M, NSPEED, IERR 
FORMAT(  IX, 'MOTOR  A  M3,' 
RETURN 
END 


SPEED  M3,'  ERROR  M3) 
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C  P0S1NT:  POSITION  MOTOR  I  INITIALIZE  ENC  PA6E  0001 


C  POSINT:  POSITION  MOTOR  t  INITIALIZE  ENCODER 
C 

C  *****«*««*«««**««***««««««**««*«**«*««**•«••«*•«*****«*« *««*««**« 

c  * 

C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  **************************************************************** 

c 

C  ^CALLED  BY:  INTHOT 

C  *FUNCTION:  1.  POSITION  THE  MOTOR  TO  '0'  POSITION 

C  *  2.  SET  THE  ENCODER  COUNT  TO  ’0’ 

C 

SUBROUTINE  P0S1NT(ENCDR. 1ER) 

C  ENCDR  a  THE  ENCODER  NUMBER  TO  INITIALIZE 

C 

C  IER  *=  THE  ERROR  FLAG  (0  IF  6000,  1  IF  GPIOB  ERROR) 

C 

C  NUMBER  OF  MILLISECONDS  PAUSE  TO  WAIT  FOR  GEAR  BACKLASH 
INTEGERS  MSEC 
PARAMETER  HSEC=1000 
C 

INTEGER  ENCDR, ENC 

INTEGER  OIR( 10) , SPEED, VALUE, VALUE 1 
DATA  DIR  /  0,0, 1.0. 0,0, 0.0. 0,0  / 

IER=0 

C 

C  MOVE  THE  MOTOR  IN  THE  DIRECTION  SPECIFIED 
C 

10  CALL  HOT  ION (ENCDR, DIR(ENC0R+1 >, 127, IER) 

IF  ( IER-1 )  20,15,200 

15  CALL  TNOUACPUT  MOTOR  CONTROL  IN  REMOTE,  HIT  ANY  KEY  ’,41) 

CALL  PAUS(IGO) 

60TO  10 
C 

C  CHECK  TO  SEE  IF  THE  ENCODER  IS  STILL  CHANGING 
C 

20  CALL  POSIT (ENCDR, VALUE1, IER) 

IF  (IER-1)  30,25.200 

25  CALL  TNOUACPUT  MOTOR  CONTROL  IN  REMOTE,  HIT  ANY  KEY  ',41) 

CALL  PAUS(IGO) 

GOTO  20 

30  CALL  SLEEPO(HSEC) 

CALL  POSIT(ENCDR, VALUE, IER) 

IF (VALUE1- VALUE  .EQ.  0)G0  TO  50 
GO  TO  20 
C 

C  STOP  THE  MOTOR 
C 

50  CALL  MOT  ION (ENCDR, DIR (ENCDR) ,0, IER) 

C 

C  CLEAR  THE  ENCDR 
C 

E  NC= OR (ENCDR , : 1 00000 ) 

CALL  POSITtENC, VALUE, IER) 

CALL  POSIKENCDR, VALUE, IER) 

C 

C  SET  ERROR  FLAG  (FOR  ENCODER  NOT  CLEARING) 

C 

IF  (VALUE  .NE.  -1)  IER  «  1 
C 

200  RETURN 
ENO 
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C  RETRs  RETRIEVE  HISTORICAL  RECORD 
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C  RETR:  RETRIEVE  HISTORICAL  RECORD 
C 

C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C  *  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 

C  *  VERSION  1.0  JUNE  lrl980  • 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  * 

C  *  * 

C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xCALLED  BY!  AI 
xFUMCTION  i  1. 
x  2. 


_  1.  GET  RETRIEVAL  FUNCTION 

C  x  2.  INITIALIZE  THE  MAGE  PROCESSOR  (INTIP) 

C  x  3.  CALL  ONE  OF  THE  FOLLOWING  SUBROUTINES! 

C  x  RVM6  -  GET  ONE  MAGE 

C  x  RVTST  -  RECREATE  ONE  TEST 

C  x  RVINSP-  RECREATE  AN  INSPECTION 

C  x  DSPR  -  DISPLAY  MAIN  RESULTS 

C  x  DSPRT  -  DISPLAT  TEST  RESULTS 

C  x  OSPT  -  DISPLAY  TAPE  RECORD 

C  x  L I  ST  IX-  LIST  DATA  BASE  BY  INDEXtt 

C 

C  ARG  l:  I ERR  INTEGER 
C 

SUBROUTINE  RETR(EQUIP, IERR) 

C 

INTEGER  SPCHN, D1RCK(40) 

LOGICAL  EQUIP 

DATA  DIRCK/'>DIRCK  !’.36x’  ’/ 

C 

C  SET  SPOOL  CHAN  =  0  FOR  DISPLAY  ONLY 
C 

SPCHN  =  0 
C 

C  GET  RETRIEVAL  FUNCTION 
C 

10  CALL  6RFNCT (MENU) 

IF  (MENU  .EQ.  0)  RETURN 
IF  (MENU  .GT.  3)  GOTO  20 
IF  (EQUIP)  GOTO  20 
C 

C  INITIALIZE  THE  MAGE  PROCESSOR 

C 

CALL  INTIP(IERR) 

IF  ( IERR  .EQ.  0)  GOTO  20 
WRITE ( 1 » 15) IERR 

15  F0RMAT(1X. ’ERROR  ’  13,’  IN  INITIALIZING  MAGE  PROCESSOR’) 
RETURN 

§0  GOTO  ( 1 00, 200, 300. 400. 500, 600 r 700),  MENU 
C 

C  RETRIEVE  MAGE  FOR  DISPLAY 
C 

100  CALL  RVMG 
GOTO  10 
C 

C  RECREATE  ONE  TEST  RESULT 
C 

200  CALL  RVTST 

GOTO  10 
C 

C  RECREATE  AN  INSPECTION 
§00  gg^L  RVINSP 

C 

C  DISPLAY  MAIN  RESULTS 
C 

400  CALL  DSPR (SPCHN) 

GOTO  10 

1  DISPLAY  TEST  RESULTS 
C 

500  CALL  DSPRT (SPCHN) 

GOTO  10  A5-124 
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C  DISPLAY  TAPE  RECORD 
600  CALjj  JjjPT(SPCHN) 

C 

C  LIST  INDEX 
C 

700  CALL  LISTIX(SPCHN) 

GOTO  10 
C 

END 
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C 

C 

C 

i 

c 

c 

c 

c 

c 

c 

c 


c 

c 


RHNAB ’•  REMOVE  NON-ALPHABETICAL  CHARACTERS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 
x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xGENERAL  PURPOSE  SUBROUTINE  TO  REMOVE  NON-ALPHABETICAL 
CHARACTERS  FROM  A  STRING 

SUBROUTINE  RMNAB< IBUF.NCHAR) 

IBUF  =  TEXT  STRING 

NCHAR  =  NO.  CHARS  IN  TEXT,  MAX  =  80  CHARS. 


♦INSERT  SYSCOM>AiKEYS 
♦INSERT  SYSCOM>KEYS.F 

INTEGER  J8UF(40) 

C  INITIALIZE  PARAMETERS 
K  =  0 
N  =  NCHAR 

CALL  ZFIL( JBUF ,80, ’  ’) 

IF  (N  .GT.  80)  N  *  80 

C  PACK  INTO  TEMP  BUFFER 
DO  100  1=1, N 

IC  «  RB(GCHR*A( IBUF , I ) , 8) 

IF  (IC  .LT.  ;2A0  .OR.  IC  .GT.  5332)  GOTO  100 
IF  (IC  .GT.  *271  .AND.  IC.  LT.  *301 >  GOTO  100 
K  =  K  ♦  1 

CALL  MCHRM(JBUF,K,1C,2) 

CONTINUE 


100 

C 


NON  REPLACE  THE  ORIGINAL  STRING  WITH  THE  PACKED  STRING 
CALL  MSTR^A( JBUF,N, IBUF,N) 

HI"* 
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C  RVIMG:  RITRITVE  AN  IMAGE 
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C  RVIMG:  RETRIEVE  AN  IMAGE 
C 

***************************************************************** 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 

*  VERSION  1.0  JUNE  1,1980  * 

*  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY  * 

£ 

***************************************************************** 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


*CALLED  BY:  RETR  * 

*FUNCTION  si.  GET  TAPE  NAME,  IMAGE  NAME,  FILE#  FROM  OPERATOR  * 

*  2.  FIND  THE  RECORD  IN  THE  TAPE  DATA  BASE  * 

*  3.  IS  CORRECT  TAPE  MOUNTED?  * 

*  4.  POSITION  TAPE  TO  CORRECT  FILE  (MOVTAP)  * 

*  5.  WRITE  IMAGE  TO  IMAGE  PROCESSOR  (CMDM70)  * 

SUBROUTINE  RVIMG 


(INSERT  TCOM 
♦INSERT  SYSCOH>A(KEYS 
♦INSERT  5YSC0H>PARN.K 
C 

LOGICAL  ZCM, NEW, MORE 

INTEGER  IBUF (36) .TAPE ( 10) , IMAGE! 25) .FILE .ENTER (40) , SELECT (40) 


C 

C 

C 


EQUIVALENCE  (1BUF,TAPE> 
EQUIVALENCE  ( IBUFt 11 ), IMAGE) 
EQUIVALENCE  (IBUFI36) .FILE) 

DATA  ENTER/'>ENTERXAj  ’  ,35#’ 
DATA  SELECT/'(A>SELECT J ' ,35*' 


/*TAPE  NAME  FROM  PEDIT 
/*IMAGE  NAME  FROM  PEDIT 
/*FILE  NO  FROM  PEDIT 


OPEN  SCREEN  TEMPLATE 

CALL  VOPEN(( 'DEMO. SCREEN. FT ’ » 14, 1 , 1CH, 1ERR) 

IF  ( IERR  .NE.  0)  GOTO  9000 

GET  TAPE  NAME, IMAGE  NAME, OR  FILE  NO 

CALL  ZFIL(IBUF.72,0) 

IS  =  200 
IE  =  204 

NEWSCR  =2  /*  DO  NOT  ERASE  SCREEN  TO  START 

CALL  PEDITI ICH, I8UF, IS, IE, NEWSCR) 

FILE  =  FILE  /***CHECKOUT 

GET  RECORD  BASED  ON  PEDIT  INFO 

IF  (TAPE(l)  .EQ.  0)  GOTO  120 

NEW  =  .NOT. ZCM ( TAPE , 20, TNAM, 20, ICODE) 

IF  (.NOT.  NEW)  GOTO  120 

FIND  TAPENAME  REQUESTED  IN  MIDAS 
IFLAG  =  FL(RET 

CALL  NEXT( ( TCHN.TREC, TAPE, TPARR, IFLAG, (100, 0,0, 0,0) 


C  NO  FILE  NUMBER  SPECIFIED:  FIND  CORRECT  IMAGE  BY  IMAGE  NAME 
IF  (FILE)  130,5,50 
5  DO  10  N  =  l.TNFL 

IBIAS  =  12  +  (N-l )*TNWT 

IF  ( ZCM ( IMAGE ,50, TREC( IBIAS) ,50, ICODE ) )  GOTO  5(1 
10  CONTINUE  * 

C 

C  CORRECT  IMAGE  NOT  FOUND 
C 

CALL  ZFIL(TREC.TSZB.O) 

20  WRITE(1,30)IMAGE 

30  FORMATdX, ’IMAGE  ’,25A2,’  NOT  FOUND.’) 

GOTO  500 
C 

C  FILE  NUMBER  SPECIFIED:  FIND  CORRECT  IMAGE  BY  FILE  NUMBER 

C  FILE  NUMBER  FOUND:  READ  TAPE  TO  IMAGE  DIRECTORY  AND  IMAGE  PROCESSOR 

C 

50  WRITE ( 1 , 60)TNAM 
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C  RVIMG:  RETRIEVE  AN  IMAGE 
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60  FORMAT ('MOUNT  TAPE:  ’  ,10A2,’t  HIT  ANY  KEY  WHEN  READY') 
CALL  PAUS(J) 

70  CALL  MOVTAP(NEW,FILE,IERR> 

IF  ( I  ERR  .NE.  0)  GOTO  9100 
CALL  CLEAN 

CALL  DIRCK  /***«CHECKOUT 

CALL  CMDM70(tNrER, IERR , 

CALL  CMDM70( SELECT > I ERR) 

CALL  DIRCK  /#***CHECKOUT 

TFCNT  =  TFCNT  ♦  1 
GOTO  SOO 

£  TAPE  RECORD  NOT  FOUND 
C 

100  WRITE ( 1 , 1 10)TAPE 

110  FORMAT (IX, 'TAPE  RECORD  ',1QA2,'  NOT  FOUND') 

GOTO  500 
C 

C  TAPE  IS  CURRENT  ONE:  WHAT  IS  FILE*? 

C 

120  IF  (FILE)  130,150,70 

C 

C  FILE*  LESS  THAN  ZERO  -  GIVE  ’EM  ANOTHER  CHANCE 
C 

130  CALL  TNOU< 'PLEASE  GIVE  MORE  SPECIFIC  DATA’, 29) 

135  CALL  PAUS(J) 

GOTO  3 

C  FILE*  NOT  SPECIFIED:  FIND  IMAGE  BY  IMAGE  NAME 
C 

150  DO  160  N  =  1 ,TNFL 

IBIAS  =  12  +  (N-l )*TNWT 

IF  (2CM(IMAGE,50,TREC(IB1AS) ,50, ICODE) )  GOTO  70 
160  CONTINUE 

GOTO  20 
C 

C  MORE? 

C 

500  CALL  DMORE(MORE) 

IF  (MORE)  GOTO  3 
C 

C  CLOSE  SCREEN  TEMPLATE 
C 

600  CALL  CLOStA(ICH) 

RETURN 

C 

C 

9000  WRITE(1,9010)IERR 

9010  FORMAT (IX, 'ERROR  ’,13,’  IN  OPENING  DEMO. SCREEN. FT’ ) 
RETURN 
C 

9100  WRITE  (1,9101)  FILE, IERR 

9101  FORMAT( 'ERROR  IN  LOCATING  FILE', 13,'  ERROR  =',I3> 

GOTO  600 

C 

END 
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C  RVlNSPs  RECREME  AN  INSPECTION 


PAGE  OOOl 
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C  RVTST!  RECREATE  OWE  TEST  RESULT 
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C  RVTST!  RECREATE  ONE  TEST  RESULT 
C 

a**************************************************************** 

«  REAL  TINE  XRAY  -  AUTONATEO  INSPECTION  SYSTEN 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

* 

a*************************************************************** 


C 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


^CALLED  BY*  RETR 

^FUNCTION  :  1.  GET  PART# »  INSP  NANE,  SERIAL#,  TESTNANE  (PEDIT) 

2.  CREATE  KEYWORD  (CRPKEY) 

3.  FIND  TEST  RESULT  RECORD  IN  DATA  BASE 

4.  CORRECT  TAPE  NOUNTED? 

5.  POSITION  TAPE  (NOVTAP) 

6 .  DISPLAY  TEST  RESULT  RECORD  ON  SCREEN  (RPTGEN) 

7.  OUTPUT  INAGE  TO  INAGE  PROCESSOR 

8.  PROCESS  INAGE  AS  WAS  DONE  ORIGINALLY 


SUBROUTINE  RVTST 


(INSERT  RTCON 
(INSERT  TCON 
(INSERT  CCON 
(INSERT  SYSCOH>PARN.K 
(INSERT  SYSCON>A(KEYS 
C 

INTEGER  1 1 D < 5 ) i PART (10),IN(10) ,SNO( 10) ,TN(10> , IBUF (45) , RKEY < 20) 
INTEGER  ENTER(40) ,SELECT(40) 

LOGICAL  NEW , NORE  > YSNO(A , ZCN 
EQUIVALENCE  (IBUF, I 10) 

EQUIVALENCE  (IBUF(B) .PART) 

EQUIVALENCE  (IBUF(1A),IN) 

EQUIVALENCE  <IBUF<26> ,SNO) 

EQUIVALENCE  ( IBUF<36) ,TN) 


C 

C 

C 


C 

C 

C 

C 

C 

10 


DATA  ENTER/’>ENTER>(A? '  »35*‘  V 
DATA  SELECT/’(A>SELECT;',35*'  V 

OPEN  SCREEN  TENPLATE 

CALL  VOPEN((’DENO. SCREEN. FT*, 14, l.IPCH.IERR) 

IF  < IERR  .NE.  0)  GOTO  9000 

GET  PART#, INSP  NANE, SERIAL#, TEST  NANE 

CALL  ZFILdBUF ,90,0) 

IS  3  0 
IE  =  6 

NEWSCR  =  2  /*D0  NOT  ERASE  SCREEN  TO  START 

CALL  PEDITdPCH,  IBUF,  IS,  IE, NEWSCR) 

CREATE  RTCON  KEYNANE.FIND  ITS  LENGTH 

CALL  CRPKE Y ( PART , 20 , IN , 20 , SNO , 20 , TN , 20 , RKE Y , 40 ) 

NCHAR  3  LSIZE(RKEY»40) 

IFLAG  =  FL(RET  ♦  FL(BIT 
CALL  TN0U(RKEY,40) 

CALL  TDUNP(RKEY,40) 

FIND  THE  RECORD  FOR  RTCON 

CALL  ZFIl (RTREC,RTS2B,0) 

CALL  NEXT((RTCHN, RTREC, RKEY, RTARR, IFLAG, (9100, 0,0,0, NCHAR) 
IFLAG  =  FL (BIT  +  FL(RET  ♦  FKUSE 
IF  (RTTNNd)  .EQ.  0)  GOTO  10 

CHANGE  PASS/FAIL  CODE  TO  ASCII 

RTPF  =  RTPF  4  J260 

IS  CORRECT  TAPE  NOUNTED? 


NEW  3  .FALSE 
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C  RVTST !  RECREATE  ONE  TEST  RESULT 
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IF  (TNAM(l)  .EQ.  0)  GOTO  IS 
IF  (2CM(RTTNM, 20.TNAM.20, 1C0DE) )  GOTO  40 
IS  NEW  =  .TRUE. 

fPtJtoz£,WWIf'TSIB'0> 

CALL  NEXTt(TCHN,TREC,RTTNM,TPARR,IFLA6,t9200,0,0,0,0) 

WRITE! 1 >  20 )RTTNM 

20  FORMAT ( 'PLEASE  MOUNT  TAPE:  ',10A2,’«  HIT  ANY  KEY  WHEN  READY1) 

CALL  PAUS< J) 

C 

40  CALL  MOVT AP( NEW »RTFNM, IERR) 

IF  (IERR  .NE.  0)  GOTO  9300 
C 

C  READ  IMAGE  TO  IMAGE  PROCESSOR 
C 

CALL  CLEAN 

CALL  CMDM70( ENTER »IERR) 

CALL  CMDM70(SELECT,IERR) 

TFCNT  =  TFCNT  ♦  1 
C 

C  DISPLAY  TEST  NAME.  DESCRIPTION, PASS/FAIL .COMMENTS, TAPENAME. FILE#. IMAGENAME 
C 

IS  *  304 
IE  =>  318 

NEWSCR  =  2  /*  DO  NOT  ERASE  SCREEN  TO  START 

CALL  RPTGEN( 0 , IPCH , RTREC . LINES , IS . IE , NEWSCR ) 

C 

C  FIND  IMAGE  COMMAND  THAT  CAUSES  IMAGE  TO  BE  WRITTEN  TO  TAPE 
C 

NBIAS  =  217 
C 

DO  50  1  =  1,8 
IMG  =  I 

NEXT  =  RTREC (NBIAS) 

IF  (NEXT  .EQ.  2)  GOTO  40 
NBIAS  »  NBIAS  4  RNW1 
50  CONTINUE 

C 

C  RECREATE  THE  IMAGE  PROCESSING 
40  IBIAS  a  N8IAS  +  1 

C 

DO  70  I  =  IMG, 8 

NBIAS  a  NBIAS  +  RNWI 
1CMD  a  RTREC(IBIAS) 

IF  ( ICMD  .EQ.  '  ')  GOTO  64 

IF  (ICMD  .EQ.  0)  GOTO  80 
IFLAG=FL$RET 

62  CALL  NEXT* (CCHN.CREC, RTREC < IBIAS) , CARR, IFL AG, *9500, 0.0, 0,0) 

DO  64  J  a  1 , CNPROC 

JB1AS  =  11  ♦  ( J-l )*CNWI 
PROC  a  CREC(JBIAS) 

IF  (PROC  .EQ.  0)  GOTO  64 
IF  (PROC  .EQ.  '  ’)  GOTO  64 

CALL  CMDM7Q(CREC( JBIAS) , IERR) 

IF  (IERR  .NE.  0)  GOTO  9400 
64  CONTINUE 

IF  (RTREC(NBIAS)  .EQ.  0)  GOTO  66 
CALL  PAUS(J) 

66  IBIAS  =  NBIAS  +  1 

70  CONTINUE 

C 

C  ANY  MORE  MATCHES? 

C 

80  IFLAG  a  FLIBIT  +  FLIRET  +  FLtUSE 

MORE  a  YSNOf A( 'LOOK  FOR  MORE  MATCHES' ,21 ,A»DNO) 

IF  (MORE)  GOTO  10 
GOTO  9900 
C 

C  ERRORS 
C 

9000  WRIT£( 1 , 9010) IERR 

9010  FORMAT (IX, ’ERROR  ’,13,’  IN  OPENING  DEMO. SCREEN. FT’ ) 

RETURN 

C 

9100  IF  (RTERR  .EQ.  7)  GOTO  9900 
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C  RVTST:  RECREATE  ONE  TEST  RESULT 
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9110 

9120 

C 

9200 

9201 

9208 

9210 


C 

9300 

9310 


C 

9400 

9410 

C 

9500 


9501 

CX 

9510 


9520 

9521 


IF  (RTERR  .NE.  22  .AND.  RTERR  .NE.  24)  GOTO  9110 
CALL  RECYCL 
GOTO  10 

WRITE!1,9120)RTERR.RKEY 

FORMAT (IX, ’MIDAS  ERROR  M3.’  IN  FINDING  ’.20A2) 
GOTO  9900 


IF  (TF'ERR  .NE.  7)  GOTO  9208 
WRITE! 1 >9201 )  RTTNN 
FORMAT! ’DATA  BASE  ERROR:  TAPE 
GOTO  9900 

WRITE! 1,9210)TP£RR, RTTNN 
FORMAT! 1X> ’MIDAS  ERROR  ’.I3>’ 
CALL  TDUMP!RTTNN>20) 

GOTO  9900 

WRITE! 1 »9310)IERR>RTTNN>RTFNN 
F0RNAT(1X> ’MOVTAP  ERROR  ’>13,’ 
.13) 

GOTO  9900 


’ > 10A2> ’  NOT  FOUND.’) 

IN  FINDING  TAPE  ’.10A2) 

IN  MOWING  TAPE  ’.10A2.’  TO  FILE 


WRITE ! 1 >9410) I ERR. IB I  AS 

FORMAT! IX ,’CMDM70  ERROR  ’>13.’  IN  IMAGE  PROCESS 
GOTO  9900 


>  13) 


IF  !CERR  .NE.  7)  GOTO  9510 
JBIAS=IBIAS+9 

WRITE !1 >9501 ) !RTREC!1 ) . I=1BI AS. JB1AS) . CNNAM 

FORMAT! IX,’ TEST  ’>10A2.’  NOT  FOUND  IN  DATA  BASE  M6A2) 

CALL  TDUMP!RTREC! IBIAS) >20) 

GOTO  9900 

IF !CERR  .NE.  22  .OR.  CERR  .NE.  24)  GOTO  9520 
CALL  RECYCL 

GO  TO  62  /*  TRY  AGAIN 

JBIAS  *  IBIAS  ♦  9 

WRITE!!. 9521 )CERR. !RTREC! I ) > 1  =  IBIAS > JBI AS)  .CCNAN 


FORMAT! IX, 'MIDAS  ERROR 
’FROM  DATA  BASF  ’,16A2) 
GOTO  9900 


■  13, ’  IN  TEST  ’ , 16A2/1X, 


C  CLOSE  SCREEN  TEMPLATE 
C 

9900  CALL  CLOSFA! IPCH) 
RETURN 
END 
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SPOLIT:  SPOOL  RETRIEVAL  INFORMATION 

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••s* 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

* 

•***«»«*• *•*•«*»*«»»**«*»«*»***««««»«*«««««**«*««***««*«*«• *«*««« 


•CALLED  BY:  DSPLD 

•FUNCTION  :  1.  CLOSE  THE  INTERMEDIATE  SPOOL  FILE 

•  2.  SPOOL  THE  FILE  TO  THE  LINE  PRINTER  (SPOOL) 

*  3.  DELETE  THE  INTERMEDIATE  SPOOL  FILE 

SPCHN  INTEGER 
SPFNAM  STRING 


ARG  j: 
ARG  2: 


SUBROUTINE  SPOLIT(SPCHN,SPFNAM) 


♦INSERT  SYSCOM>A$KEYS 
♦INSERT  SYSCOH>KEYS.F 
♦INSERT  SYSCOM>PARM.K 
C 

INTEGER  ICHN(2) ,BSI2E ,NSIZE 
PARAMETER  BSIZE  -  2000,  NSIZE  =  7 
PARAMETER  NBTS  *  NSIZE*2 

INTEGER  BUFFER ( BSI ZE ) , INFO ( 1 2 ) , SPCHN , SPFNAM (NSIZE) 
LOGICAL  DEL 


C 

C 

C 

C 


GET  2  FREE  CHANNELS  FOR  THE  SPOOLER  4  LOAD  INFO 

CALL  FREECH(2, ICHN) 

INFO(l)  »  ICHN(l) 


INF0(2) 

INF0(3) 

1NF0(6) 

INF0(5) 

INF0(6) 

INF0(7) 


ICHN(2) 

0 


C 

C 


I NF  0(11)  =  0 

CLOSE  SPOOLFILENAME  FILE 
CALL  CLOSM(SPCHN) 

KEY  =  1  /*  COPY  FILE  INTO  SPOOL  QUEUE 
/•••••CHECKOUT 

IERR  =  I ERR  /••••CHECKOUT 

JSIZ-BSIZE 

URITE( 1,9000)  SPCHN, KEY, SPFNAM, INFO, JSIZ, IERR 
9000  FORMAT ('SPOOL  CHAN  =',I3,/ 

'KEY  ■  ’ , 13,/ 

'FILE  NAME=  ',7A2,/ 

’INFO  *  ' , 314,3A2,14,3A2,I4,I4,/ 

'BUFFER  ',16,/ 

'ERROR  »’ ,13) 

C 

C  SPOOL  OUT  THE  HISTORY  DATA 
C 

CALL  SP00L9( KEY, SPFNAM, NBTS, INFO, BUFFER, BSIZE, IERR) 
IF  (IERR  .EQ.  0)  GOTO  100 
NRITE(1,10)1ERR, SPFNAM 

10  FORMATdX, 'ERROR  M3,'  IN  SPOOLING  ',7A2) 

C 

C  DELETE  SPFNAM 
C 

100  DEL  *  DELE9A< SPFNAM, 16) 

IF(DEL)  RETURN 
WRITE (1 , ISO) IERR, SPFNAM 


150 


RETURN 
END 


IN  OELETING  ', SPFNAM, 7A2) 


A5-132 


*  *  *  *  * 


C  SV1HD:  SAVE  IMAGE  ON  DISK 


C  SVIMD:  SAVE  IMAGE  ON  DISK 
C 

c  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  *  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  « 
C  *  VERSION  1.0  JUNE  1,1980  * 
C  *  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY  * 
C  »  * 
C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
C 

C  XCALLED  BY:  SVRES  x 
C  ^FUNCTION:  SAVE  THE  IMAGE  ON  DISK  x 


C 

SUBROUTINE  SVIMD(NAME) 

C 

CALL  TNOUA( ' SAVE  IMAGE:  M2) 

CALL  TN0UA<NAHE,32) 

CALL  TNOU  (’  NOT  IMPLEMENTED !’, 17) 

RETURN 

END 


C  SVIHT:  SAVE  IMAGE  ON  TAPE 


C  SVINT:  SAVE  IMAGE  ON  TAPE 
C 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  x 

*  VERSION  1.0  JUNE  1,1980  « 

*  BOEING  AEROSPACE  DUALITY  ASSURANCE  TECHNOLOGY  x 

*  x 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXKX 


c 

C 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


^CALLED  BY:  PING 

^FUNCTION:  1.  ADD  THIS  IMAGE'S  NAME  TO  THE  TAPE  RECORD 
*  2.  WRITE  THE  IMAGE  TO  TAPE  (CMDM70) 


SUBROUTINE  SVINT (SSOON) 


S500N 


SYSTEM  500  IMAGE  NAME 


JjJj|ERI  RICOH 


5ERT  tcoh 
♦INSERT  SYSCOH>A*KEYS 
INTEGER  LINEUO) 


MOVE  IMAGE  NAME  TO  TREC 

I B I AS  a  12  *  TNFLXTNWT 
NBYT  =  TNWT*2 

CALL  7HVD(RT1MN,TREC( IBIAS) ,NBYT) 

TNFL  *  TNFL  ♦  1 
TFCNT  =  TFCNT  ♦  1 

FORMAT  A  COMMAND  LINE  TO  WRITE  IMAGE  TO  TAPE 
CALL  ZMV( ’♦A>XFER; ’ ,8, LINE, 80) 

CALL  ZMVD(S500N,LINE, 16) 

CALL  PACK<LINE ,80) 

WRITE  TAPE  USING  THE  S500  COMMAND  LINE 
CALL  CHDM70(L1NE, IERR) 

RETURN 

END 
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C  SHARES!  SAVE  RESULTS  -  MAIN  RECORD 


RAGE  OOOl 


C  SHARES:  SAHE  RESULTS  -  MAIN  RECORO 
C 

C  «*##*###**#***#*»«#*****»******##««***»#«*##««*****#*««*#««***««« 

C  *  REAL  TIRE  XRAY  -  AUTOAATED  INSPECTION  SYSTEA 

C  *  VERSION  1.0  JUNE  1.1980 

C  *  BOEING  AEROSPACE  OUALITY  ASSURANCE  TECHNOLOGY 

C  # 

c  ***********#«****«****##**#* ##***#****#***#*#****««*« ************ 

c 

C  ^CALLED  BY:  OINSP  * 

C  ^FUNCTION:  1.  CREATE  AAIN  RESULTS  KEYWORD  * 

C  *  2.  ADD  AAIN  REAULTS  RECORD  •  TESTNAAES  TO  DATA  BASE  • 

C 

SUBROUTINE  SHARES! IERR) 

♦INSERT  RCOA 
♦INSERT  PCOA 
♦INSERT  SYSCOA>PARA.K 
C 

INTEGER  RKEY (20) .BIAS 


CALL  ZFIL(RKEY,40, ’  ’) 

CALL  CRPKEY(RPN. 20. R1N. 20. RSNO. 20.0.0. RKEY. 40> 
CALL  APDAT(RKEY,40)  /*APPENO  OATE 


/*CR  RES  KEY 


C  ADD  AAIN  RESULT  FILE  TO  DATA  BASE 
C 

CALL  ADD 1 ♦ ( RLCHN .RREC, RKEY, RLARR. FLORET > 09000 . 0 . 0 . 0 , 0 ) 

C 

C  ADD  TEST  NAAES  TO  DATA  BASE  AS  SECONDARD  KEYNAAES 
DO  100  I  «=  l.PNT 

BIAS  =  43  ♦  (1-1 )*RNWT  /«  FIND  TEST  NAAE 

CALL  ADD 1 ♦ ( RLCHN , RKEY , RREC ( BIAS ) , RLARR , FLOUSE , 09030 , 1 , 0 , 0 , 0 ) 
100  CONTINUE 
IERR  =>  0 
RETURN 
C 

C  ERROR  IN  INSERTING  AAIN  RECORD 
C 

9000  IERR  =  RLERR 

WRITE (1,9010 IIERR, RKEY 


FORAATdX,  ’AIDAS  ERROR  ’.12,’  IN  ADDING 
RETURN 


i20A2, ’TO  RESULT  DK’> 


C 

C  ERROR  IN  INSERTING  A  SECONDARY  KEY 
C 

9050  WRITE ( 1 ,9060 IIERR, RREC (BIAS) , I 

9060  FORAATdX, 'AIDAS  ERROR  ',12,'  IN  ADDING  '.25A2,'  INDEX:  ’,12) 
RETURN 
END 
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*  *  *  *  * 


C  SVRES:  SAVE  RESULTS  OF  INSPECTION 


PAGE  OOOl 


C  SVRES!  SAVE  RESULTS  OF  INSPECTION 
C 

C  ***************************************************************** 

C  *  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  * 

C  *  VERSION  1.0  JUNE  1,1980  * 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  * 

C  *  * 

C  a**************#******##********#*****#***#*****#####*#*#****#*** 

c 

C  ^CALLED  BY!  DINSP  * 

C  *FUNCTION!  1.  GET  PASS/FAIL  CODE, COMMENTS  ON  TEST  * 

C  *  2.  OUTPUT  TAPE  NAME, FILE  NUMBER,  IMAGE  NAME  * 

C  *  3.  SAVE  THE  TEST  RESULTS  (SVTSTR)  * 

C  *  A.  SET  IMAGE  PROCESSOR  TO  FREERUN  * 

C 

SUBROUTINE  SVRES(DEFAUL , NOTAPE , ILOOP.RTKEY , 1ERR> 

C 

♦INSERT  RTCOM 
♦INSERT  ROOM 
♦INSERT  SYSCOM>AAKEYS 
C 

LOGICAL  OEFAUL, NOTAPE 
INTEGER  DIGIT ( 40) 

DATA  DIGIT/’>DIGIT1ZE>0A;  ’,33*’  ’/ 

C 

IF  ( .NOT .DEFAUL)  GOTO  AO 
C 

C  DEFAULT  PLAN  -  SAVE  RESULTS?  TAPE  OR  DISK? 

C - 

5  WRITE (1,10) 

10  FORMAT!/, 'DEFAULT  PLAN  USED'/ 

ClX.'O  DO  NOT  SAVE  RESULTS'/ 

llX.'l  SAVE  RESULTS  ON  DISK'/ 

21 X, '2  SAVE  RESULTS  ON  TAPE') 

RE AD ( 1 , 20 , ERR=5 ) ISAVE 
20  FORMAT(Il) 

IF  (ISAVE  .EQ.  0)  GOTO  100 
GOTO  (30, AO), ISAVE 
GOTO  5 
C 

C  DEFAULT  PLAN  -  SAVE  RESULTS  ON  DISC 
C - 

30  CALL  SVIMD(RTIMN) 

GOTO  100 
C 

C  SAVF  RESULTS  ON  TAPE 
C - 

C  OPEN  SCREEN  TEMPLATE 

AO  CALL  VOPENACDEMO. SCREEN. FT MA,  1 , ICHN,  1ERR) 

IF  ( IERR  .EQ.  0)  GOTO  00 
WRITE! 1 ,50) IERR 

50  FORMAT (IX, ’ERROR  ’,12,’  IN  OPENING  DEMO. SCREEN. FT ’ ) 

RETURN 

C 

C  SET  UP  PEDIT  PARAMETERS 

C - 

00  IS  =  25 

IE  =  30 

NEWSCR  =  2  /*  DO  NOT  ERASE  SCREEN  TO  START 

CALL  PE0IT( ICHN, RTREC, IS, IE, NEWSCR) 

C 

C  CLOSE  SCREEN  FILE 

C . — 

CALL  CLOSAA(ICHN) 

C 

C  SAVE  TEST  RESULTS 

C . . 

IF  (DEFAUL)  GOTO  100 
CALL  SVTSTR(RTKEY, IERR) 

E  SET  IMAGE  PROCESSOR  TO  FREERUN 

100  cftt  E)»En9o(oigit  , IERR) 
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C  SVRESi  SAVE  RESULTS  OF  INSPECTION 


PAGE  0002 


RETURN 

END 


C  SVTSTR:  SAVE  TEST  RESULTS  PAGE  0001 


C  SVTSTR*  SAVE  TEST  RESULTS 
C 

C  a*********************************** a**************************** 

c  * 

C  *  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTER 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  ****#*********«#*««*#«»«#***«****#***«*#««*****  «*****«*******'***< 

c 

C  *CALLED  BY!  SVRFS  * 

C  ^FUNCTION:  SAVE  TEST  RESULTS  TO  DATA  BASE  * 


SUBROUTINE  SVTSTR  (KEY.IERR) 
C 

(INSERT  RCOH 
(INSERT  RTCOfl 
(INSERT  SYSCOR>PARR.K 
C 

INTEGER  KEY(25) 

C 


IF  (RTPF  .EQ.  0)  GOTO  10 
RPF  =  RTPF 

C  INSERT  TEST  RESULTS  INTO  DATA  BASE 
10  IFLAG  -  FL(RET 

CALL  AD01(<RTCHN,RTREC, KEY, RTARR,FL(RET, (9000, 0,0, 0,0) 
RETURN 

9000  IERR  =  RTERR 

WRITE! 1 ,9010) IERR, KEY 

9010  FORRATdX,  ’RIDAS  ERROR  M2,’,  KEYWORD  «  ’,25A2) 

RETURN 

END 


*C  *  *  *  * 
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C  SVTAPR:  SAVE  THE  TAPE  RECORO  (AIDAS) 

C 

C  *****««*«««**««**«««**««****«««*«•«***«******»•»**•»«»*»••«««*««* 

c  * 

C  *  REAL  TIAE  XRAY  -  AUTOAATED  INSPECTION  SYSTEA 

C  *  VERSION  1.0  JUNE  1,1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  **********«#««**##**#*#*#*#**#***«*********#**«**************#** 


C  sCALLED  by:  PI AG 

C  ^FUNCTION:  AOO  THE  IAAGE  NAAE  TO  THE  RECORO  OF  THIS  TAPE 
C 

SUBROUTINE  SVTAPR(IERR) 

C 

(INSERT  TCOA 
(INSERT  SYSCOA>PARA.K 

INTEGER  TAPREC(TSZH) 

C  LOCK  TAPE  DATA  BASE  FOR  EOITING 
1FLAGS  =  FL(RET 

10  CALL  LOCKSHCHN, TAPREC, TNAA. TPARR, IFLAGS. (9000, 0,0, 0,0) 

C  UPDATE  TAPE  DATA  BASE  RECORD 
IFLAGS  =  FL(USE 

CALL  UPDAT( ( TCHN , TREC , TNAA . TPARR , I FL AGS , ( 9050 , 0 , 0 . 0 , 0 ) 

IBIAS  =  12  ♦  (TNFL  -  1 )*TNWT 

CALL  ADD1 ( ( TCHN , TREC , TREC ( IBIAS) , TPARR , I FLAGS , (9200 , 1 , 0 , 0 . 0 > 

IERR  =  0 

RETURN 

C  ERROR  FROA  LOCK: IF  BUSY,  RECYCLE 

9000  IF  (TPERR  .NE.  22  .ANO  -TPERR  .NE.  24)  GOTO  9100 
CALL  RECYCL 

GOTO  10  /#BUSY  -  DIAL  AGAIN 

C  WRONG  NUABER?  -  ERROR  FROA  LOCKS 
9100  URITE( 1,91 10) TPERR, TNAA 

9110  FORHATOX,  'AIDAS  ERROR  ',12,'  FROA  LOCKS,  TNAA=  M0A2) 

IERR  *  TPERR 
RETURN 

C  ERROR  IN  UPDATING 

9050  UR I TE( 1,9040) TPERR, TNAA 

9060  FORAAT  (IX,  ’AIDAS  ERROR  M2,'  FROA  LOCKS. TNAA  =  M0A2) 

IERR  =  TPERR 
RETURN 

9200  WRITE! 1,9210) TPERR 

9210  FORAATdX.  'AIDAS  ERROR  M3.'  IN  ADDING  IAAGE  NAAE') 

IERR  =  TPERR 

RETURN 

END 


*  *  ******* 


PRIMITIVE  FOR  AVERAGING  VIDEO  FRAMES 

ARGUMENTS i  8 

•INTEGER*  FUNCTION  CONTROL  BLOCK 
•INTEGER*  BUFFER 

•INTEGER*  NO.  OF  FRAMES  TO  AVERAGE 
•INTEGER*  TIME  TO  DISPLAY  IMAGE 
•INTEGER*  1ST  BREAKPOINT  (MIN) 
•INTEGER*  2ND  BREAKPOINT  (MAX) 

•  LOGICAL*  KEYWORD  (MINMAX) 

•  LOGICAL*  BATCH 


CONTINUED  ON 
NEXT  PAGE 


SAVE  -  PRIMITIVE  TO  SAVE  OUTPUT  OF  PIPELINE 

ARGUMENTS j  7 

•  INTEGER:  FCB 

•  INTEGER:  BUFFER 

•  INTEGER:  ICHNNO 

•  INTEGER:  DCHNNO 

•  INTEGER:  NBANDS 

•  INTEGER:  BIAS 

•  REAL:  RSCALE 


SELECT  OUTPUT  CODE 


non  non  n  o  nnnnnonnnnnnnnnnnnnnonnnnnonnnnn  noooooonooooo 
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DAVG  s  PRIMITIVE  FOR  AVERAGING  VIDEO  FRAMES 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXX 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM  x 

*  VERSION  1.0  JUNE  1,1980  * 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  * 

x  x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


MODIFIED  TO  RUN  FROM  AUTOMATIC  INSPECTION  SYSTEM 

SUBROUTINE  DAVG  (FCB,  BUFFER,  N,  WAIT,  MIN,  MAX,  MINMAX,  BATCH) 


DESCRIPT  - 


PASSED  IN  - 


RETURNED 
SUBS  - 


PRIMITIVE  TO  AVERAGE  ’N’  FRAMES  IN  THE  ACCUMULATOR, 
AND  DISPLAY  THE  RESULT.  CYCLE  REPEATS  UNTIL  STOPPED 
OR  SAVED  BY  BUTTON  PUSH.  (DELETED) 


BUFFER 

N 

WAIT 

MIN 

MAX 

MINMAX 

NONE 

M700P 

GBITS 

PBITS 

DMASK 

RBUTN 

SCROL 

SHIFT 

CONST 

LTCNT 

MNMAX 

LUT 

OFM 

ALU 

FDBCK 

DEXEC 

DWAIT 

IF  M 


WORK  SPACE  (1024+) 

NUMBER  OF  FRAMES  TO  AVERAGE  /  CYCLE 
TIME  IN  1/10TH  OF  SEC.  TO  DISPLAY  IMAGE 
1ST  BREAKPOINT  ON  IFM  PIECEWISE  MAPPING 
2ND  BREAKPOINT  ON  IFM  PIECEWISE  MAPPING 
KEYWORD  FOR  AUTOMATIC  RANGE  FINDING 


GETS  VERSION  INFORMATION 
FILLS  ARRAY  WITH  BIT  PATTERN  IN  WORD 
FILLS  WORD  WITH  BIT  PATTERN  IN  ARRAY 
COMPUTES  CHANNEL  MASK  FROM  CHANNEL  NUMBER 
CLEAR  THE  BUTTON  WORD  (DELETED) 

CLEAR  THE  SCROL  REGISTER 

CLEAR  THE  OFM  SELECT  SHIFT 

CLEAR  CONSTANT  REGISTER 

WRITES  LUT  MASK  TO  ENABLE  CHANNELS 

FIND  THE  MINIMUM  AND  MAXIMUM  OF  IMAGE 

LOADS  THE  LUT  WITH  SPECIFIED  MAP 

LOADS  THE  OFM  WITH  SPECIFIED  MAP 

DEFINES  ALU  OPERATION 

WRITES  THE  FEEDBACK  LOOP  CONTROL  WORD 

FLUSHES  THE  M7D  COMMAND  BUFFER- 

PAUSE  FOR  AWHILE 

LOADS  THE  IFM  WITH  SPECIFIED  MAP 


INTEGER  FCB ( 1 ) ,  BUFFER ( 1 ) 
INTEGER  N,  WAIT,  MIN,  MAX 
LOGICAL  MINMAX 

INTEGER  VRSION ,  DIGCHN,  DIGMSK 
INTEGER  X,  Y 
INTEGER  OUTSE.L  ( 8 ) 

REAL  SLOPE 

INTEGER  PBITS,  DMASK 

GET  VERSION  INFO 


/*  EXTERNAL  FUNCTIONS 


CALL  M700P  (FCB,  VRSION,  NCHAN,  LEVELS,  IRMEM,  I,  I,  I, 
1  IFDBCK ,  I,  I,  I,  I,  I,  I,  I,  I,  I,  I,  I) 

GET  DIGITIZER  CHANNEL  NUMBER 

CALL  GBITS  (IRMEM,  BUFFER,  16) 

DIGCHN  -  PBITS  (BUFFER(9) ,  4) 

DIGMSK  *  DMASK  (DIGCHN) 

INITIALIZE  M70 

CALL  SCROL  (FCB,  0,  0,  17,  0,  0) 

CALL  SHIFT  (FCB,  0,  0,  0,  0,  0) 

CALL  CONST  (FCB,  0,  0,  0,  0,  0) 
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CALL  PROFL  (FCB,  0,  0,  0,  0,  0) 
CALL  ZFIL  (BUFFER,  512,  0) 

CALL  GRRAH  (FCB,  BUFFER,  0,  0) 
CALL  CRCTL  (FCB,  0,  0,  0,  0,  0, 


0,  0,  0) 


IF  N  >  32  THEN  DON’T  NEED  TO  LOAD  IFH 


I F ( N  .GT.  32 > 60  TO  140 
NN=N 

IF ( N  .EG.  32 ) NN= 1 6 
SLOPE®  1 .  /F1.0AT  ( NN ) 


DO  120  J= 1 » NN 

““  110  1=1, 


DO 


110 

C 


110  1=1,512 
1ST  ART  = ( J-l ) *51 2 
IDX=ISTART+I-1 
BUFFER (I )=IFIX(IDX*SLOPE) 
CONTINUE 


C 

C 

C 

C 

C 

C 

C 

C 

c 

120 
C 


CALL  IFH (FCB, BUFFER, I  START, 51 2, 0,0,0) 


FCB 

HAP 

START 

COUNT 

PACK 

VRTRTC 

READ 


IFH  CONTENTS 

ZERO  RELATIVE  POSITION  OF  STARTING  POINT 
THE  NUflBER  OF  IFH  ELEHENTS  TO  TRANSFER 
1  IHPLIES  PACKED  NODE 


0  IHPLIES  WRITE,  1  IHPLIES  RE AO 


CONTINUE 


C  DEFINE  AND  LOAD  LUT  HAP  FOR  DIGITIZING  CHANNEL  FOR  SLOPE  OF  1 
C 

140  DO  22  1=1,256 

BUFFER(I)=I-1 
22  CONTINUE 

L  CALL  LUT(FCB, BUFFER. DIGHSK, 7, 0,0) 


CHECK  IF  WANT  DIFFERENT  SCALING 
I F (  .NOT.  HINHAX)GO  TO  310 

ENABLE  THE  DIGITIZING  LUT,  GET  HIN  AND  HAX ,  RELOAD  LUT 


310 

C 


CALL  LTCNT(FCB. DIGHSK, 7, 0,0) 
CALL  HNHAX ( FCB , HIN, HAX ,1,1, 1,1) 
HINP1=HIN+1 


305 

C 


DO  305  1= 1 , HINPi 
BUFFER ( I ) =0 
CONTINUE 


SLOPE =255 . / ( HAX-HIN ) 
MINP2=HINP1+1 


320 

C 


DO  320  I=HINP2,HAX 

BUFFER (I)=IFIX((I-HINP1 )* SLOPE + .5) 
CONTINUE 


HAXP1 =HAX+ 1 


J40 


DO  340  I=HAXP1 , 256 
BUFFER( I )=255 
CONTINUE 


CALL  LUT (FCB, BUFFER, 7, DIGHSK, 0,0) 


FCB 

HAP 

COLOR 

VRTRTC 

READ 


HAP  FUNCTION  FOR  LUT 

BIT  HASH  FOR  WHICH  LUTS  TO  WRITE 


0  IHPLIES  WRITE,  1  IHPLIES  READ 
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C  LOAD  THE  OTHER  LUTS 
C 

DO  40  1=1,256 
BUFFER ( I ) = 1-1 
CONTINUE 


40 

C 

C 

C 

C 

C 


CALL  LUT  <  FCB , BUFFER ,7, 7,0,0) 


C 

C 

C 

C 


FCB 

MAP 

COLOR 

CHANNL 

VRTRTC 

READ 


MAP  FUNCTION  FOR  LUT 

BIT  MASK  FOR  WHICH  LUT'S  TO  WRITE 

CHANNEL  CODE  BIT  MAP 


0  IMPLIES  WRITE,  1  IMPLIES  READ 
SET  UP  THE  ALU  TO  ACCOMPLISH  AN  ’A  +  B’ 


70 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DO  70  1=1,8 

OUTSEL ( I )  =  J 1 2 
CONTINUE 


/*ALU  OUTPUT 


CALL  ALU (FCB, 0,:ll,s 11, BUFFER, OUTSEL, 1,0, 0,0, I, 1,0) 


MODE 

BFUNC 

NFUNC 

CONST 

OUTSEL  = 

EFOM 

ESHIFT  = 
CARYIN  = 
CARRY 
EQUAL 
READ 

CLEAR  THE  ACCUMULATOR 

CALL  FDBCK (FCB , 2 , 3, 

FCB 
COLOR 
CHANL 
B I T  P 

BYPIFN  - 
PIXOFF  = 
EXTERN  = 
ZERO 
ACCUM 
ADWRT 


0  IMPLIES  ARITHMETIC,  1  IMPLIES  LOGICAL 
BLOTCH  FUNCTION  ($11  IMPLIES  A  +  B) 
NORMAL  FUNCTION  Cll  IMPLIES  A  +  B) 

8  WORD  INTEGER  CONSTANT  ARRAY 
SELECTION  ( : 12  IMPLIES  ALU  OUTPUT) 

1  IMPLIES  EXTEND  SIGN  BIT 
RIGHT  SHIFT  OUTPUT  WITH  SIGN  EXTENSION 
OVERFLOW  FLAG  SET  ONLY  DURING  READ 
OVERFLOW  FLAG  SET  ONLY  DURING  READ 
FRAME  EQUALITY  FLAG  SET  DURING  READ 
0  IMPLIES  WRITE,  1  IMPLIES  READ 


1,1, 0,0, 1,1,0) 


BIT  MASK  SELECTING  COLOR 

BIT  MAP  SELECTING  CHANNEL 

BIT  MAP  SELECTING  BIT  PLANES 

0  IMPLIES  USE  IFM ,  1  IMPLIES  BYPASS  IFM 

PIXEL  OFFSET 

1  IMPLIES  EXTERNAL  INPUT 
0  IS  NORMAL,  1  IMPLIES  FEEDBACK  ALL  O’S 
1  IMPLIES  ACCUMULATOR  MODE 
1  IMPLIES  ADDITIVE  WRITE 


ENABLE  THE  LUTS  FOR  THE  DIGITIZER  TO  GET  A  BLACK  t  WHITE  PICTURE 
CALL  LTCNT ( FCB , DI GMSK ,7,0,0) 


FCB 

MASK 

COLOR 

VRTRTC 

READ 


0  IMPLIES  WRITE, 
RELOAD  OFMS  WITH  POSITIVE  UNITY  TRANSFORM 


BIT  MASK  FOR  WHICH  LUTS  TO  ENABLE 
BIT  MASK  FOR  WHICH  COLORS  TO  ENABLE 

1  IMPLIES  READ 


198 

C 


DO  198  1=1,512 
BUFFER  < I >  =  1-1 
CONTINUE 

CALL  OFM<FCB, BUFFER, 7,0,0) 


C  FEEDBACK  N  TIMES 
C 

DO  80  1=1, N 

CALL  FDBCK (FCB, 2, 3, -1,1, 0,0, 0,1,0) 

A  6-9 


t 
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c 

c 

FCB 

c 

COLOR 

3 

4,2,1  FOR  RED, GREEN, BLUE  (ORDER?) 

c 

CHANL 

3 

BIT  MASK  SELECTING  DESTINATION  CHANNEL 

c 

c 

BITP 

BYPIFM 

“ 

riJCtt.WMf  SMaK^BYPASS  .PA 

c 

PIXOFF 

a 

c 

EXTERN 

c 

ZERO 

c 

ACCUM 

c 

r 

ADWRT 

80 

P 

CONTINUE 

C  SET 

P 

UP  ALU 

OST  FOR  ACCUMULATOR 

If 

DO  50 

1  =  1,8 

OUTSEL  < I )  =  s 10 

50 

P 

CONTINUE 

P 

CALL 

ALU ( FCB  » 0  > : 

14, 

: 14, BUFFER, OUTSEL, 0,0, 0,0, 0,0,0) 

If 

C 

FCB 

c 

MODE 

s 

0  IS  ARITHMETIC,  1  IMPLIES  LOGICAL 

c 

BFUNC 

3 

SET  FOR  A+A  (USED  WHEN  N>32) 

c 

NFUNC 

3 

SET  FOR  A+A  (USED  WHEN  N>32) 

c 

CONST 

33 

c 

OUTSEL* 

OUTPUT  SELECTION  ARRAY 

c 

EOFM 

3 

c 

ESHIFT 

a 

c 

SHIFT 

3 

c 

CARY  IN 

a 

c 

CARRY 

a 

c 

EQUAL 

a 

c 

r 

READ 

3 

if 

r 

IF  (N 

.LE.  32 ) GO 

TO 

600 

C  OTHERWISE 

r 

SHIFT  DATA 

UP 

TO  THE  MSB 

C  SET 

p 

ALU  FOR  ALU  OUTPUT 

w 

DO  88 

1  =  1,8 

OUTSEL  < I )  —  5 1 2 

88 

p 

CONTINUE 

i/ 

CALL 

ALU ( FCB, 0, ! 

14, 

: 1 4 , BUFFER , OUT  SEL , 0 , 0 , 0 , 0 , 0 , 0 , 0 ) 

c 

FCB 

c 

MODE 

a 

0  IMPLIES  ARITHMETIC 

c 

BFUNC 

a 

ALU  FUNCTION  IN  ROI  (514  IMPLIES  A+A) 

C 

NFUNC 

a 

ALU  FUNCTION  OUTSIDE  ROI  014  IMPLIES  A+A) 

c 

CONST 

a 

8  WORD  CONSTANT  ARRAY 

c 

OUTSEL 

a 

OUTPUT  SELECTION  ARRAY 

c 

EOFM 

a 

SIGN  EXTEND  OFM 

c 

ESHIFT 

a 

SIGN  EXTEND  RIGHT  SHIFT 

c 

SHIFT 

3 

RIGHT  SHIFT 

c 

CARYIN 

a 

SETS  THE  CARRY  IN  CONDITION 

c 

CARRY 

3 

c 

EQUAL 

a 

C 

READ 

a 

0  IMPLIES  WRITE,  1  IMPLIES  READ 

C 


IF 

(N 

.EQ. 

64  )G0 

TO 

500 

IF 

(N 

.EQ. 

128)00 

TO 

510 

IF 

(N 

.EQ. 

256)60 

TO 

520 

GO 

TO 

600 

C 

C  MULTIPLY  BY  TWO  BY  FEEDING  BACK  AND  DOING  A+A 
C 

500  CALL  FDBCK( FCB, 0,3, -1,1, 0,0, 0,1,0) 

C 

510  CONTINUE 
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C  DAVG*  PRIMITIVE  FOR  AVERAGING  VIDEO  FRA  PAGE  0005 


C  MULTIPLY  BY  TWO  BY  FEEDING  BACK  AND  DOING  A+A 
C 

CALL  FDBCK(FCB,0,3,-1 >lr0»0>0»i>0) 


C  SET  ALU  OST  FOR  OFM  AND  THEN  FEED  BACK  THE  2ND  CHANNEL  TO  THE  1ST 
C 

520  DO  99  1-1,8 

OUTSEL  < I >  =  *  11 
99  CONTINUE 

CALL  ALU < FCB, 0, :  1 4 , J 14 , BUFFER, OUTSEL ,0 ,0,0, 0,0 , 0, 0) 

CALL  LTCNT(FCB,2,7,0,0) 

CALL  FDBCK(FCB, 2, 1,-1, 1,0, 0.0, 0,0,0) 

GO  TO  444 
C 

C  FEEDBACK  1  TIME  THRU  THE  IFM  TO  ACCOMPLISH  A  DIVIDE  BY  N 
C  AND  PUT  IN  1ST  MEMORY  CHANNEL 
C 

600  CALL  FDBCK (FCB, 2, 1,-1, 0,0, 0,0, 0,0) 

C 

C  ENABLE  THE  LUTS  FOR  THE  CHANNEL  THAT  THE  OUTPUT  WAS  FED  BACK  TO 
C 

444  CALL  L.TCNT  (FCB, 1,7, 0,0) 

C 

C  SCALE  UP  BY  RELOADING  OEMS  WITH  SLOPE  OF  4 
C 

DO  294  1-1,512 

BUFFER ( I)«I+I+I+I-4 
BUFFER (5124 I) =512+1+1+ I* 1-4 
294  CONTINUE 

C 

CALL  OFM(FCB, BUFFER, 7, 0,0) 

C  TRANSFER  COMMAND  BUFFER  TO  MODEL  70 
C 


CALL  DEXEC  <FCB) 

RETURN 

END 
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C  DAVGD J  INTERFACE  FOR  VIDEO  AVERAGE IN6.  PAGE  0001 


DAVGD *  INTERFACE  FOR  VIDEO  AVERAGEING. 

#*****##**##***####*#*****#*#«*#*«#**#«*#****###*#**#**## ******* 

*  REAL  TIME  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

* 

**************************************************************** 


MODIFIED  TO  RUN  FROM  AUTOMATIC  INSPECTION  SYSTEM 


SUBROUTINE  DAVGD  <FCB,  ZERO.  NIDS,  NODS,  BUFFER) 


DE SCRIPT  - 


DIGITIZES  A  VIDEO  IMAGE  AND  SUMS  FRAMES  IN  THE  ACCUMULATOR 
TO  DISPLAY  A  FRAME  AVERAGE  IN  SEMI-REAL  TIME. 

SETS  UP  PARAMETER  SYSTEM  FOR  CALL  TO  DAVG. 

WRITTEN  BY  DAN  KINNEY,  BOEING  QAT,  3/17/80 


INTEGER  ZERO < 1 ) ,  FCB(l),  BUFFER(l) 

INTEGER  NIDS,  NODS 

INTEGER  OCHNNO ( 16 ) 

INTEGER  ODSRN,  OTYPE ,  FTYPE ,  NS,  NL ,  NBANDS 
INTEGER  N,  WAIT,  MIN,  MAX 
LOGICAL  M1NMAX ,  BATCH 

INTEGER  INAMES ( 48 ) .  C0DES(6),  SIZES(6>,  C0UNTS(6>,  NPARMS 
INTEGER**  ADDRI,  ADDRR ,  ADDRS(6) 


C 

C 


C 

C 


BUILD  PARAMETER  PROMPTS 


SET  N  * 

CALL 


16  DEFAULT 
ZMVO  <  '  N 


CODES ( 1 ) 
SIZES(l)  « 
ADDRS(l)  ■ 
COUNTS! 1 )  • 
N  *  16 


0 
1 

ADDRI 

0 


(N) 


SET 


DEFAULT  WAIT  TO  10 
CALL  ZMVD  ('WAIT 
CODES ( 2 )  =  0 
SIZES<2)  =  1 

ADDRS ( 2 )  -  ADDRI  (WAIT) 
COUNTS ( 2 )  *  0 


WAIT 


10 


SET  MIN  «=  0,  DEFAULT 
CALL  ZMVD  (’MIN 
CODES ( 3 )  *  0 
SIZES! 3)  «  1 
ADDRS( 3)  =  ADDRI  (MIN) 
COUNTS ( 3 )  =  0 
MIN  -  0 

SET  MAX  «  255  (DEFAULT) 
CALL  ZMVD  ('MAX 
CODES(*>  »  0 
SIZES!*)  =  1 
ADDRS!*)  »  ADDRI  (MAX) 
COUNTS!*)  *  0 
MAX  «  255 

CALL  ZMVD  (’MINMAX 
C0DES(5>  »  3 
C0UNTS(5)  -  0 


CALL  ZMVD  ('BATCH 


' , INAMES! 1 > ,  16) 


’ , INAMES(9) ,  16) 


’ ,INAMES(17),  16) 

’ , INARES!25) ,  16) 

’  ,INAMES(33) ,  16) 

',INAMES!*1),  16) 
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C  DAVGD:  INTERFACE  FOR  VIDEO  AVERAGEING.  PAGE  0002 


C0DES(6)  > 
COUNTS ( 6  > 

NPARMS  =  < 


CALL  PARAMS  ( FCB ,  I  NAMES ,  CODES,  SI2 
IF  <N  .LT.  1)  N  »  2 
IF  (N  .GT.  256)  N  «=  256 
N  -  2##IFIX(AL0G(FL0AT (N) >/AL0G<2. > ) 
IF  (NIN  .LT.  0)  MIN  «  0 

IF  (NIN  .GE.  MAX)  NIN  =  0 

IF  (MAX  .LE.  MIN)  MAX  «  255 

IF  (MAX  .GT.  255)  MAX  =  255 


CODES,  SIZES,  ADDRS,  COUNTS,  NPARMS) 


IF  (COUNTS (5) .£0.1)  MINMAX 
IF  ( COUNTS ( 6 ) . E9 . 1 )  BATCH  = 

OPEN  OUTPUT  DISPLAY  IMAGE 
ODSRN  =  1 
DTYPE  *  1 
FTYPE  =  2 
NS  »  512 
NL  =  512 
NBANDS  =  1 


>  .TRUE. 
.TRUE. 


DO  ACTUAL  DIGITIZING  AND  SUMMATION 

CALL  DAVG  ( FCB ,  BUFFER,  N,  WAIT,  MIN,  MAX,  MINMAX,  BATCH) 

O^NNO(l)5^  0 

CALL  SETUP  (FCB,  BUFFER,  NBANDS,  NLEVS,  OCHNNO,  0,  1) 
CLEAN  UP 

CALL  ICLOS  (FCB.  ODSRN) 

RETURN 

END 


* 
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SAVE:  PRIMATIVE  TO  SAVE  OUTPUT  OF  PIPE  PAGE  0001 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


SAVE:  PRIMATIVE  TO  SAVE  OUTPUT  OF  PIPELINE 


*4 ************************************************************** 

*  REAL  TINE  XRAY  -  AUTOMATED  INSPECTION  SYSTEM 

*  VERSION  1.0  JUNE  1,1980 

*  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY  * 

*  * 
***************************************************************** 


SUBROUTINE  SAVE  (FCB, 
BIAS, 


BUFFER,  ICHNNO,  OCHNNO.  NBANDS, 
RSCALE  > 


WRITTEN  BY  DAN  KINNEY,  BOEING  QAT  RID ,  A/21/80. 

DESCRIPT  -  PRIMITIVE  TO  SAVE  THE  PIPELINE  OUTPUT  OF  A  DISPLAY 
IMAGE  IN  REFRESH  MEMORY 


PASSED  IN  -  BUFFER 
ICHNNO 
OCHNNO 
NBANOS 
BIAS 
RSCALE 


RETURNED  - 
SUBS  - 


NONE 

DADRS 

LTCNT 

CONST 

ALU 

IFM 

FDBCK 


INTEGER  WORK  SPACE  (1024+) 

ARRAY  OF  INPUT  CHANNEL  NUMBERS 
ARRAY  OF  OUTPUT  CHANNEL  NUMBERS 
NUMBER  OF  BANOS  IN  INPUT  IMAGE 
CONSTANT  VALUE  TO  BE  ADDED  TO  IMAGE 
RESCALE  FACTOR 


LOADS  CONSTANT  REGISTERS 
DEFINES  THE  ALU  OPERATION 

WRITES  THE  FEEDBACK  LOOP  CONTROL  WORD 


CHANGES  - 


COMPUTATION  OF  IFM  RAMP  CHANGED  FROM  ’ 1*RESCALE'  TO 
'  (I-1)*RESCAL£'  JON  6/9/80. 


INTEGER  FCB( 1 ) ,  BUFFER(l) 

INTEGER  ICHNNO(  16) ,  0CHNN0U6),  NBANDS 
INTEGER  BIAS 


REAL  RSCALE 
INTEGER  CHMASKI16) 
INTEGER  0UTSEL(8) 
INTEGER  BUTTON,  X, 


CHCODE 


C 

C 


SO 


INITIALIZE  M70 

CALL  RBUTN  (FCB,  BUTTON,  X,  Y) 

CALL  SCROL  (FCB,  0,  0,  17,  0,  0) 

CALL  SHIFT  (FCB,  0,  0,  0,  0,  0) 

CALL  CONST  (FCB,  0,  0,  0,  0,  0) 

CALL  PROFL  (FCB,  0,  0,  0,  0,  0) 

CALL  ZFIL  (BUFFER,  512,  0) 

CALL  GRRAM  (FCB,  BUFFER,  0,  0) 

CALL  CRCTL  (FCB,  0,  0.  0,  0,  0,  0,  0,  0,  0) 

COMPUTE  INPUT  CHANNEL  MASK  FROM  CHANNEL  CODE  ARRAY 
CALL  OAORS  (CHMASK,  ICHNNO,  CHCODE,  NBANDS) 

WRITE  LUT  MASK  TO  SELECT  INPUT  IMAGE  OR  IMAGES 
CALL  LTCNT  (FCB,  CHCODE,  7,  0,  0) 

/«  MASK  *  CHCODE  MASK  FOR  WHICH  CHANNELS  TO  ENABLE 

/*  COLOR  »  7  MASK  FOR  WHICH  COLORS  TO  ENABLE 

SET  UP  CONSTANT  REGISTERS  FOR  BIASING  IMAGE  AFTER  ADDER 
CALL  CONST  (FCB,  BIAS,  8IAS,  BIAS,  0,  0) 

SET  UP  ALU 
DO  SO  I  1,8 

OUT*T,EL ( I )  =  :ll 
CONTINUE 

0 CF1H€  ALU  OPERATION 
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C  — SAVE^  PRIVATIVE  TO  SAVE  OUTPUT  OF  PIPE  PAGE  0002 


60 


CALL  ALU  (FCB,  0,  0.  0,  BUFFER.  0UTSEL.  0.  0.  0.  0.  0.  0.  0) 

/*  0UTSEL  =  511  PIPELINE  OUTPUT 

THE  .25  2EWi.J5?  MicStfs  10  BIT  TV  DOHN  TO  8  BIT  HEHORY 
DO  60  1=1 . 1026 

BUFFER(I)  =  (1-1)  *  RSCALE  *  .25 
CONTINUE 


CALL  IFH  <FCB»  BUFFER,  0,  1026, 
/*  HAP  =  BUFFER 
/*  START  =  0 
/*  COUNT  =  1026 
/*  PACK  =  0 
/*  VRTRTC  =  0 
/*  READ  =  0 


0,  0,  0) 

RESCALE  RAHP  FUNCTION 
FIRST  POSITION  TO  LOAD  IN  IFH 
NUNBER  OF  ELEHENTS  TO  TRANSFER 
1  IMPLIES  PACKED  NODE  TRANSFER 
UAIT  FOR  VERTICAL  RETRACE  INTERVAL 
0  IRPLIES  READ,  1  IHPLIES  WRITE 


CONFUTE  OUTPUT  CHANNEL  HASK  FROH  CHANNEL  CODE  ARRAY 
CALL  DADRS  (CHHASK,  OCHNNO,  CHCODE,  N BANDS) 

WRITE  THE  FEEDBACK  LOOP  CONTROL  WORD 
CALL  FOBCK  (FCB,  1,  CHHASK,  -1,  0,  0,  0,  0,  0,  0> 

/*  COLOR  =1  6,  2,  1.  FOR  RED,  GREEN,  AND  BLUE 

/*  CHANL  =  CHHASK  BIT  HASK  SELECTING  DESTINATION  CHANNEL 

/*  BITP  =  -1  BIT  HASK  SELECTING  THE  BIT  PLANES 

/*  BYPIFH  =0  0  IHPLIES  USE  IFH,  1  IHPLIES  BYPASS  IFH 


RETURN 

END 
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C  SAVED:  SAVE  THE  OUTPUT  OF  THE  PIPELINE  PAGE  0001 


C  SAVED:  SAVE  THE  OUTPUT  OF  THE  PIPELINE 
C 

c  ***************************************************************** 

c  * 

C  *  REAL  TINE  XRAY  -  AUTORATED  INSPECTION  SYSTEM 

C  *  VERSION  1.0  JUNE  1.1980 

C  *  BOEING  AEROSPACE  QUALITY  ASSURANCE  TECHNOLOGY 

C  * 

C  ***************************************************************** 

c 

SUBROUTINE  SAVED  (FCB.  ZERO,  N1DS,  NODS,  IBUFF ) 

WRITTEN  BY  DAN  KINNEY,  BOEING  QAT  RCD ,  4/21/80. 

DESCRIPTION:  SAVED  calls  the  primitive  SAVE  to  save  the  pipeline 
output  of  a  display  iaaie  in  refresh  aeaory. 


C 

C 


C 

C 


C 

C 

C 


C 

100 

C 


C 

200 

C 


C 


C 

C 

C 


specify  passed  variables 
INTEGER  ZERO(l),  FCB(l),  IBUFF ( 1 > 

INTEGER  N1DS,  NODS 

specify  input  and  output  iaade  variables 
INTEGER  ICHNN0U6),  0CHNN0(16) 

INTEGER  IDSRN,  ODSRN,  DTYPE ,  FTYPE,  NS,  NL,  NBANDS 
INTEGER  IDX,  NLEVS 

specify  paraaeter  svstea  variables 
INTEGER  INAMES( 16) ,  C0DES<2>,  SIZES < 2 ) ,  C0UNTS12),  NPARMS 
INTEGER**  ADDRI.  ADDRR,  ADDRS12) 

INTEGER  BIAS 
REAL  RSCALE 

LOGICAL  LOCKED! 16) 

INTEGER  ICBPT ,  CHAN1 ,  ILOCK 

check  value  of  NIDS 

IF  (l.LE.NIOS  .AND.  NI0S.LE.3)  GOTO  100 
CALL  TNOUA  (’ERROR:  ’,8) 

CALL  TNOU  ('NO  INPUT,  OR  MORE  THEN  THREE  INPUTS  SPECIFIED' ,45) 
RETURN 

CONTINUE 

check  value  of  NODS 
IF  (NOOS.LC.i)  GOTO  200 

CALL  TNOUA  (’ERROR:  ’,8) 

CALL  TNOU  ('MORE  THEN  ONE  OUTPUT  SPECIFIED' ,30) 

RETURN 

CONTINUE 

build  paraaeter  systea  rroapts 
CALL  ZMVD  ('BIAS  MNAMES(l),  16) 

CODES! 1 )  =  0 
SIZES(l)  =  1 
ADDRS(l)  *  ADDRI  (BIAS) 

COUNTS! 1 )  =  0 
BIAS  =  0 

CALL  ZMVD  ('RESCALE  ’,INAMES(9)»  16) 

C0DES(2>  =  1 
SIZES(2)  *  1 

AD0RS(2)  ■  ADDRR  (RSCALE) 

C0UNTS(2)  =  0 
RSCALE  -  1.0 

NPARMS  ■=  2 


call  paraaeter  svstea  to  check/rroart  options 
CALL  PARAMS  (FCB,  INAMES,  CODES,  SIZES,  ADDRS,  COUNTS, 


NPARMS) 


open  input  iaase 

IOX  =  1 

DO  400  IDSRN  *  1 , NIDS 

CALL  I0P1  (FCB,  IBUFF.  IDSRN,  DTYPE,  FTYPE,  NS,  NL,  NBANDS) 
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C  SAVED;  save  the  output  of  the  pipeline  PAGE  0002 


300 

c 


c 

c 


400 


c 

c 

c 


410 

c 

500 


600 

c 

700 

C 


C 

800 

C 

C 

900 

C 


910 

C 

C 


IF  (FTYPE. EQ. 2)  GOTO  300 
CALL  TNOUA  ('ERROR:  ',8) 

CALL  TNOU  ('INPUT  RUST  BE  A  DISPLAY  IRAGE'.29> 

GOTO  900 
CONTINUE 

prevent  aeaory  aanaSeaent  froa  overwrittin*  iaaSe 
ICBPT  =  IDSRN  *  256 
CHAN1  =  FCBUCBPT+87) 

ILOCK  =  AND  ( ZERO( 9Q6+CHAN1 ) ,  :17) 

LOCKED ( IDSRN)  =  .FALSE. 

IF  (ILOCK  .EQ.  2)  LOCKED( IDSRN)  -  .TRUE. 

IF  ( .NOT .LOCKED! IDSRN) )  CALL  LOCK  (FCB,  IDSRN) 


load  array  with  channel  nuaber  correspond i nS  to  each  band 
CALL  CHREQ  (FCB,  IDSRN.  ICHNNO(IDX).  NLEVS) 

IDX  =  1DX  +  NBANDS 
CONTINUE 
NBANDS  =  IDX  -  1 


open  output  iaade 
IF  (NODS.EQ.l)  GOTO  500 

IF  NO  OUTPUT  IS  SPECIFIED.  OVERWRITE  THE  IRAGE 
DO  410  1=1.16 

OCHNNO(I)  =  ICHNNO(I) 

CONTINUE 
GOTO  700 

CONTINUE 

ODSRN  =  NIDS  +  1 

CALL  IOPO  (FCB.  I BUFF .  ODSRN,  DTYPE .  FTYPE ,  NS,  NL,  1) 

IF  (FTYPE. EQ. 2)  GOTO  600 
CALL  TNOUA  (’ERROR:  ’,8) 

CALL  TNOU  ('OUTPUT  RUST  BE  A  DISPLAY  IRAGE', 30) 

GOTO  800 
CONTINUE 

CALL  CHREQ  (FCB,  ODSRN,  OCHNNO,  NLEVS) 

CONTINUE 

Call  subroutine  or  priaative  to  do  the  actual  operation 
CALL  SAVE  (FCB,  IBUFF,  ICHNNO,  OCHNNO,  NBANDS,  BIAS,  RSCALE) 
CALL  SETUP  (FCB,  IBUFF,  NBANDS,  NLEVS,  OCHNNO,  0,  1) 

CALL  CONST  (FCB,  BIAS,  BIAS,  BIAS,  0,  1) 

CONTINUE 

close  all  output  iaades 
CALL  ICLOS  (FCB,  ODSRN) 

CONTINUE 

close  all  input  iaa$es 
DO  910  IDSRN  =>  1 ,NIDS 

IF  ( .NOT .LOCKED ( IDSRN) )  CALL  UNLOCK  (FCB,  IDSRN) 

CALL  ICLOS  (FC8,  IDSRN) 

CONTINUE 

exit 

CALL  OEXEC  (FCB) 

RETURN 

END 
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APPENDIX  7 

SUPPORTING  SOFTWARE  DESCRIPTIONS 

A  BRIEF  DESCRIPTION  OF  EACH  OF  THE  ADDITIONAL  SUBROUTINES  USED  IN 
THE  COMPUTER-AIDED  INSPECTION  SOFTWARE  IS  LISTED  BELOW  FOR  CLARITY. 
ALL  ARGUMENTS  ARE  16  BIT  INTEGERS  (INTEGERS)  UNLESS  OTHERWISE 
NOTED. 


ADDlt  (CHAN, BUFFER, KEY, ARRAY, FLAGS, ALTRTN, INDEX, FNO, BUFLEN .KEYLEN) 

ADDlt  IS  A  RIDAS  (MULTIPLE  INDEX  DATA  ACCESS  SYSTEM)  SUBROUTINE 
USED  TO  ADO  A  RECORD  AND  PRIMARY  KEY  OR  A  SECONDARY  KEY  TO  A 
DATA-BASE.  THE  ARGUMENTS  ARE: 

CHAN  =  SYSTEM  CHANNEL  NUMBER  TO  THE  DATA  FILE. 

BUFFER  =  AN  ARRAY  IN  MEMORY  CONTAINING  THE  RECORD  TO  BE  ADDED. 

OR  THE  PRIMARY  KEYWORD  IF  A  SECONDARY  KEY  IS  ADDED. 

KEY  =  KEYWORD  TO  BE  ADDED  TO  THE  INDEX. 

ARRAY  =  A  14  WORD  ARRAY  CONTAINING  INDEX  AND  RECORD  POINTERS  AND 
ERROR  CODE. 

FLAGS  =  A  16  BIT  WORD  USED  TO  PASS  OPTION  CONDITIONS  TO  MIDAS. 
ALTRTN  =  RETURN  TAKEN  IF  ANY  ERROR  OCCUKES. 

INDEX  =  INDEX  LEVEL.  0  *  PRIMARY.  1-19  FOR  SECONDARIES. 

FNO  =  FILE  NUMBER.  ALWAYS  -  0 

BUFLEN  =  LENGTH  OF  DATA  BUFFER.  0  IF  WHOLE  RECORD. 

KEYLEN  =  LENGTH  OF  KEYWORD.  0  IF  WHOLE  KEYWORD. 


CLEAN 


CLEAN  IS  A  SUBROUTINE  FROM  THE  STC  SYSTEM  500  SOFTWARE  USED  TO 
INITIALIZE  THE  MODEL  70  HARDWARE  AND  CLEAN  THE  IMAGE  DIRECTORY. 
THIS  SUBROUTINE  WAS  MODIFIED  TO  BE  COMPATIBLE  WITH  AUTOMATIC 
OPERATION. 


CLOStA  (ICH) 

PRIME  SUPPLIED  SUBROUTINE  USED  TO  CLOSE  A  DISK  FILE. 
CHANNEL  TO  BE  CLOSED. 


ICH  IS 


CMDH70  (COMD.ERR) 

CMDM70  PASSES  A  COMMAND  TO  THE  STC  SYSTEM  500.  THIS  SUBROUTINE 
WAS  WRITEN  TO  BE  COMPATIBLE  WITH  AUTOMATIC  PROCESSES.  THE 
ARGUMENTS  ARE: 

COMD  =  COMMAND  LINE  IN  SYSTEM  500  FORMAT. 

ERR  »  ERROR  CODE.  0  =  NO  ERROR. 

CMLDR 

CMLDR  IS  A  SYSTEM  500  SUBROUTINE  USED  TO  LOAD  DATA  INTO  COMMON. 

IT  WAS  MODIFIED  TO  BE  COMPATIBLE  WITH  AUTOMATIC  OPERATION. 

CNVBtA  <KEY, VALUE, BUFFER. BUFLEN) 

CNVBtA  IS  A  PRIME  SUPPLIED  SUBROUTINE  TO  CONVERT  A  DOUBLE 
PRECISION  INTEGER  TO  ASCII.  THE  ARGUMENTS  ARE: 

KEY  *  KEY  FOR  CONVERSION  TO  OCTAL,  DECIMAL,  OR  KEXIDECIRAL. 
VALUE  =  4  BYTE  INTEGER  TO  BE  CONVERTED. 

BUFFER  s  ARRAY  TO  RECEIVE  ASCII  CONVERSION. 

BUFLEN  =  LENGTH  OF  ARRAY  IN  BYTES. 

CSTRtA  (TEXT A, LENA, TEXT B.LENB) 

CSTRf A  IS  A  LOGICAL  FUNCTION  SUPPLIED  BY  PRIME  USED  TO  COMPARE  TWO 
TEXT  STRINGS.  ITS  VALUE  IS  TRUE  IF  THE  STRINGS  COMPARE.  THE 
ARGUMENTS  ARE: 

TEXTA  «  FIRST  STRING  FOR  REFERENCE. 

LENA  =  LENGTH  OF  TEXTA  IN  BYTES. 

TEXTS  «  SECOND  STRING  TO  COMPARE. 

LENB  =  LENGTH  OF  TEXTB. 
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DAT E ♦ A  (BUFFER) 

DATEFA  IS  A  DOUBLE  PRECISION  REAL  FUNCTION  SUPPLIED  BY  PRIME ,  AND 
IS  USED  TO  GET  THE  CURRENT  OATE.  THE  VALUE  OF  THE  FUNCTION  IS 
ASCII  IN  THE  FORM  OF  ’MM/DD/YY'.  THE  ARUGUMENT  IS: 

BUFFER  =  OATE  IN  THE  FORM  'DAY,  MON  DD  YEAR',  AND  RUST  BE  AT 
LEAST  16  BYTES  LONG. 

DELEtA  (FILEfLEN) 

DELEtA  IS  A  LOGICAL  FUNCTION  SUPPLIED  BY  PRIME,  USED  TO  DELETE  A 
FILE.  THE  FUCNTION  IS  RETURNED  TRUE  IF  SUCCESSFUL.  THE  ARGUMENTS 
ARE: 

FILE  =  NAME  OF  FILE  TO  BE  DELETED. 

LEN  ■  LENGTH  OF  FILE  NAME  IN  BYTES. 

OELETt  (CHAN, BUFFER, KEY, ARRAY, FLAGS, ALTRTN, INDEX, FNO,BUFLEN,KEYLEN> 

DELETt  IS  A  MIDAS  (MULTIPLE  INDEX  DATA  ACCESS  SYSTEM)  SUBROUTINE 
USED  TO  DELETE  A  RECORD  AND  PRIMARY  KEY  OR  A  SECONDARY  KEY  FROM 

AcSANA_B=SS'fsl^  £IM£1!T5uM[£r  TO  THE  DATA  FILE. 

BUFFER  ‘  AN  ARRAY  IN  MEMORY  CONTAINING  THE  RECORD  TO  BE  DELETED, 
KEY  =  KEYWORD  TO  BE  DELETED  FROM  THE  INOEX. 

ARRAY  *  A  14  WORD  ARRAY  CONTAINING  INDEX  AND  RECORD  POINTERS  AND 
ERROR  CODE. 

FLAGS  =  A  16  BIT  WORD  USED  TO  PASS  OPTION  CONDITIONS  TO  MIDAS. 
ALTRTN  =  RETURN  TAKEN  IF  ANY  ERROR  OCCURES. 

INDEX  =  INDEX  LEVEL,  0  =  PRIMARY,  1-19  FOR  SECONDARIES. 

FNO  =  FILE  NUMBER,  ALWAYS  =  0 

BUFLEN  =  LENGTH  OF  DATA  BUFFER,  0  IF  WHOLE  RECORD. 

KEYLEN  =  LENGTH  OF  KEYWORD,  MUST  BE  0 


EXIT  IS  A  PRIME  SUBROUTINE  USED  TO  RETURN  TO  THE  OPERATING  SYSTEM. 
FILLfA  (BUFFER, BUFLEN, 'CHAR') 

FILLtA  IS  A  PRIME  SUPPLIED  SUBROUTINE  TO  FILL  AN  ARRAY  WITH  BYTES 
OR  CHARACTERS.  THE  ARGUMENTS  ARE: 

BUFFER  =  ARRAY  TO  BE  FILLED. 

BUFLEN  »  NUMBER  OF  BYTES  IN  BUFFER. 

’CHAR’  *  THE  CHARACTER  TO  USED  TO  FILL  THE  ARRAY.  THE  CHARACTER 
MUST  BE  LEFT  JUSTIFIED. 

6CHR$A  (TEXTvPOS) 

GCHRFA'iS  AN  INTEGER  FUNCTION  SUPPLIED  BY  PRIME  USED  TO  GET  A 
CHARACTER  FROM  A  TEXT  STRING.  THE  VALUE  OF  THE  FUNCTION  IS  A 
LEFT  JUSTIFIED,  BLANK  PADDED  2  BYTE  INTEGER.  THE  ARGUMENTS  ARE: 
TEXT  =  TEXT  STRING  SUPPLYING  THE  CHARACTER. 

POS  =  POSITION  IN  TEXT  OF  CHARACTER  WANTED. 

LOCK*  ( CHAN , BUFFER , KE Y , ARRAY , FLAGS , ALTRTN , I NDEX , FNO , BUFLEN , KEYLEN ) 

LOCK!  IS  A  MIDAS  (MULTIPLE  INDEX  DATA  ACCESS  SYSTEM)  SUBROUTINE 
USED  TO  LOCATE  AND  LOCK  A  RECORD  FOR  EDITING  AND  UPDATING. 

THE  ARGUMENTS  ARE: 


CHAN 

BUFFER 


FLAGS 

ALTRTN 

INDEX 

FNO 

BUFLEN 

KEYLEN 


SYSTEM  CHANNEL  NUMBER  TO  THE  DATA  FILE. 

AN  ARRAY  IN  MEMORY  CONTAINING  THE  RECORD  TO  BE  LOCKED. 
KEYWORD  TO  LOCATE  THE  RECORO. 

A  14  WORO  ARRAY  CONTAINING  INOEX  AND  RECORO  POINTERS  AND 
ERROR  CODE. 

A  16  BIT  WORD  USED  TO  PASS  OPTION  CONDITIONS  TO  RIDAS. 
RETURN  TAKEN  IF  ANY  ERROR  OCCURES. 

INDEX  LEVEL,  0  =  PRIMARY,  1-19  FOR  SECONDARIES. 

FILE  NUMBER,  ALWAYS  =  0 
LENGTH  OF  DATA  BUFFER,  RUST  BE  0 
LENGTH  OF  KEYWORD,  MUST  BE  0 
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LS12E  LSI2E  l|NAH  INTEGER  FUNCTION  USED  TO  DETERMINE  THE  LAST  NON  BLANK 
CHARACTER  IN  A  TEXT  STRING.  THE  VALUE  OF  THE  FUNCTION  RETURNED  IS 
THE  BYTE  COUNT  OF  THE  LAST  NON-BLANK  CHARACTER.  THE  ARGUMENTS 
ARE  * 

TEXT  =  TEXT  STRING  TO  BE  EXAMINED. 

LEN  =  LENGTH  OF  TEXT. 

MCHR«A^<DTEXT,DFOS,STEXT^SPOS>ED  subroutine  used  to  move  one  character 
FROM  ONE  STRING  TO  ANOTHER.  THE  ARGUMENTS  ARE: 

DTEXT  =  DESTINATION  TEXT  STRING. 

DPOS  =  POSITION  IN  DESTINATION  STRING. 

HIV  :  POSITIONE IN  loURCE* STRING. 

MSTR,AMSTRiATisEASpRIMET SUPPLIED  SUBROUTINE  USED  TO  MOVE  A  STRING  FROM 
ONE  ARRAY  TO  ANOTHER.  THE  ARGUMENTS  ARE: 

STEXT  =  SOURCE  TEXT. 

LENS  =  LENGTH  OF  SOURCE  STRING. 

LEND7  =  LENGTHAOF°DESTINATION  ARRAY  (BLANK  PADDING  OR  TRUNCATION 
IS  PERFORMED) 

MSIJB$A  (STEXT, LENS, STARTS, ENOS, DTEXT, LEND.STARTD.ENDD) 

MSUBiA  IS  A  PRIME  SUPPLIED  SUBROUTINE  USED  TO  HOVE  A  TEXT  STRING 
FROM  ONE  ARRAY  TO  ANOTHER.  THE  ARGUMENTS  ARE: 


mr  :  mm  sw 


TEXT. 


NEXT# 


STARTS  =  START  POSITION  IN  SOURCE  TEXT. 

ENDS  =  END  POSITION  IN  SOURCE  TEXT. 

DTEXT  =  DESTINATION  TEXT. 

LEND  =  LENGTH  OF  DESTINATION  TEXT. 

STARTD  =  POSITION  IN  DESTINATION  TEXT  TO  DEPOSIT  TEXT. 

ENDD  =  END  POSITION  IN  DESTINATION  TEXT  FOR  DEPOSITED  TEXT. 

(CHAN. BUFFER, KEY, ARRAY. FLAGS, ALTRTN, INDEX, FNO.BUFLEN.KEYLEN) 

NEXT#  IS  A  MIDAS  (MULTIPLE  INDEX  DATA  ACCESS  SYSTEM)  SUBROUTINE 
USED  TO  LOCATE  A  SPECIFIC  RECORD  BY  KEYWORD  OR  THE  NEXT 
RECORD  IN  THE  INDEX.  THE  ARGUMENTS  ARE: 

CHAN  =  SYSTEM  CHANNEL  NUMBER  TO  THE  DATA  FILE. 

BUFFER  =  AN  ARRAY  IN  MEMORY  TO  RECEIVE  THE  RECORD. 

KEY  =  KEYWORD  TO  LOCATE  THE  RECORD. 

ARRAY  =  A  14  WORO  ARRAY  CONTAINING  INDEX  AND  RECORD  POINTERS  AND 
ERROR  CODE. 

FLAGS  =  A  16  BIT  WORD  USED  TO  PASS  OPTION  CONDITIONS  TO  MIDAS. 
ALTRTN  =  RETURN  TAKEN  IF  ANY  ERROR  OCCURES. 

INOEX  =  INDEX  LEVEL,  0  =  PRIMARY,  1-1?  FOR  SECONDARIES. 

FNO  *  FILE  NUMBER,  ALWAYS  -  0. 

BUFLEN  =  LENGTH  OF  DATA  BUFFER,  0  FOR  FULL  RECORD. 

KEYLEN  =  LENGTH  OF  KEYWORD,  0  FOR  FULL  KEY,  >0  FOR  PARTIAL  KEY. 

PACK  (TEXT, LEN) 

PACK  IS  A  SUBROUTINE  USED  TO  REMOVE  ILLEGAL  FILE  NAME  CHARACTERS 
FROM  A  TEXT  STRING.  THE  ARGUMENTS  ARE: 

TEXT  =  TEXT  STRING. 

LEN  =  LENGTH  OF  STRING. 

PAUS  (I GO) 

PAUS  IS  A  SUBROUTINE  USED  TO  HOLD  THE  PROGRAM  FLOW  UNTIL  THE 
OPERATOR  PRESSES  A  TERMINAL  KEY.  THE  ARGUMENT  IS: 

IGO  =  RETURNED  0  IF  'O’  OR  ’ESCAPE’  KEY  IS  PRESSED,  OR  1  FOR 
ANY  OTHER  KEY. 
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PEDIT  (CHAM, BUFFER. START. END, ERASE) 

PEDIT  IS  A  SUBROUTINE  USED  TO  PERFORM  THE  SCREEN  EDITING  FUNCTION. 
THE  ARGUMENTS  ARE: 

CHAN  =  CHANNEL  TO  A  FORMATTED  SCREEN  TEMPLATE  FILE. 

BUFFER  =  ARRAY  HOLDING  ALL  THE  DATA  INPUT  OR  OUTPUT  VIA  THE 
TEMPLATE. 

START  =  FIRST  LINE  NUMBER  IN  TEMPLATE  FILE  TO  BE  USED  BY  PEDIT. 
END  =  LAST  LINE  NUMBER  IN  TEMPLATE  FILE  TO  BE  USEO  BY  PEDIT. 
ERASE  *  FLAG  TO  ERASE  SCREEN  BEFORE  TEMPLATE  DISPLAY. 

READL  ( BUFFER, NCHAR.LENB) 

READL  IS  A  SUBROUTINE  USED  TO  GET  A  LINE  OF  TEXT  FROM  THE 
OPERATOR.  THE  ARGUMENTS  ARE: 

BUFFER  =  ARRAY  TO  ACCEPT  TEXT. 

NCHAR  =  NUMBER  OF  CHARACTERS  ENTERED  BY  OPERATOR. 

LEND  =  LENGTH  OF  BUFFER. 

READN  < TEXT, LENG, NUN) 

READN  IS  A  SUBROUTINE  USED  TO  DISPLAY  A  LINE  OF  TEXT  AND  ACCEPT 
A  DECIMAL  INTEGER  (IN  ASCII)  FROM  THE  TERMINAL  OPERATOR. 

THE  ARGUMENTS  ARE: 

TEXT  =  A  LINE  OF  TEXT  TO  BE  DISPLAYED  AS  A  PROMPT. 

LENG  =  THE  LENGTH  OF  THE  TEXT  IN  BYTES. 

NUM  =  RETURNED  INTEGER  ENTERED  AT  TERMINAL. 

RECYCL 

RECYCL  IS  A  PRIME  SUPPLIED  SUBROUTINE  USED  TO  ALLOW  OTHER  USERS 
OF  THE  SYSTEM  TO  USE  YOUR  TIME  SLICE. 

RPTGEN  (SPCHN, CHAN, BUFFER, LINES. START. END, FORM) 

PRTGEN  IS  A  SUBROUTINE  FROM  THE  SCREEN  EDITING  SYSTEM  USEO  TO 
PRODUCE  REPORTS.  THE  ARGUMENTS  ARE: 

SPCHN  =  CHANNEL  TO  A  LINE  PRINTER  SPOOL  FILE,  IF  0  THEN  TO 
THE  OPERATOR’S  TERMINAL. 

CHAN  =  CHANNEL  TO  THE  FORMATTED  SCREEN  TEMPLATE  FILE. 

BUFFER  *  ARRAY  CONTAINING  ALL  THE  DATA  FOR  THE  REPORT. 

LINES  =  RETURNED  NUMBER  OF  LINES  SENT  TO  SPOOL  FILE. 

START  =  FIRST  LINE  IN  TEMPLATE  FILE  USEO  IN  REPORT. 

Mi  :  tffl  HftiUEKWtflH  rUWm’- 

RS  (ARG, SHIFT) 

RS  IS  A  PRIME  SUPPLIED  FUNCTION  USED  TO  SHIFT  A  SINGLE  PRECISION 
INTEGER  (16  BITS)  TO  THE  RIGHT  (TOWARD  LOWER  SIGNIFICANCE). 

THE  ARGUMENTS  ARE: 

ARG  =  INTEGER  TO  BE  SHIFTED. 

SHIFT  =  NUMBER  OF  BITS  TO  SHIFT. 

SETERM  (TYPE) 

SETERM  IS  A  SUBROUTINE  USED  TO  GET  THE  OPERATOR’S  TERMINAL  TYPE 
AND  LOAD  A  COMMON  ARRAY  WITH  CONTROL  COMMANDS.  THE  ARGUMENT  IS: 
TYPE  =  RETURNED  TYPE  CODE  FOR  TERMINAL. 

SPOOL!  (KEY. FILE, FLEN, INFO, BUFFER, BLEN, ERROR) 

SPOOL*  IS  A  SUBROUTINE  SUPPLIED  BY  PRIME  TO  PASS  A  FILE  TO  THE 
LINE  PRINTER  SPOOLER.  THE  ARGUMENTS  ARE: 

KEY  =  FLAG  FOR  SPOOLER  MODE,  1  =  PRINT. 

FILE  =  FILE  NAME  TO  BE  PRINTED. 

FLEN  =  LENGTH  OF  FILE  NAME. 

INFO  *  12  WORD  ARRAY  USEO  TO  PASS  INFORMATION  TO  SPOOLER. 
BUFFER  ■=  WORKING  ARRAY  FOR  SPOOLER. 

BLEN  »  LENGTH  OF  BUFFER  IN  WORDS. 

ERROR  *  RETURNED  ERROR  CODE. 
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TINT  ( UNI T , ADDR , COUNT , CONND , STATUS ) 

TINT  IS  A  PRIME  SUPPLIED  SUBROUTINE  USED  TO  CONTROL  THE  MAGNETIC 
TAPE.  THE  ARGUMENTS  ARE* 

UNIT  =  MAGNETIC  TAPE  DRIVE  NUMBER.  0  RELATIVE. 

ADDR  =  MEMORY  ADDRESS  OF  BUFFER  FOR  RECORD  I/O.  FOUR  BYTES  IF 
IN  VIRTUAL  MODE. 

COUNT  =  NUMBER  OF  WORDS  TO  TRANSFER.  BETWEEN  0  AND  6000. 

COMND  =  COMMAND  FLAG  FOR  ACTION  REQUESTED. 

ERROR  >  RETURNED  ERROR  CODE. 

T10U  (CHAR) 

T10U  IS  A  PRIME  SUPPLIED  SUBROUTINE  USED  TO  OUTPUT  ONE  CHARCTER 
TO  THE  OPERATOR'S  TERMINAL.  THE  ARGUMENT  IS* 

CHAR  =  THE  CHARACTER  TO  BE  OUTPUT,  LEFT  JUSTIFIED. 

TIMEIA  (BUFFER) 

TIMEfA  IS  A  DOUBLE  PRECISION  REAL  FUNCTION  SUPPLIED  BY  PRIME.  IT 
IS  USED  TO  GET  THE  CURRENT  TIME  OF  DAY.  THE  VALUE  OF  THE  FUNCTION 
RETURNED  IS  EQUAL  TO  HOURS  SINCE  MIDNIGHT.  THE  ARGUMENT  IS* 

BUFFER  =  RETURNED  ASCII  VALUE  OF  TIME  IN  FORM  'HR:NN*SC'.  AND 
MUST  BE  AT  LEAST  8  BYTES  LONG. 

TNOU  (TEXT .NCHAR) 

TNOU  IS  A  PRIME  SUPPLIED  SUBROUTINE  USED  TO  OUTPUT  A  LINE  OF  TEXT 
TO  THE  OPERATOR'S  TERMINAL,  FOLLOWED  BY  A  CARRIAGE  RETURN  AND 
LINE  FEED.  THE  ARGUMENTS  ARE: 

TEXT  =  TEXT  OF  OUTPUT  MESSAGE. 

NCHAR  =  NUMBER  OF  CHARACTERS  IN  TEXT. 

TNOUA  (TEXT, NCHAR) 

TNOUA  IS  A  PRIME  SUPPLIEO  SUBROUTINE  USED  TO  OUTPUT  A  LINE  OF  TEXT 
TO  THE  OPERATOR'S  TERMINAL  WITHOUT  CARRIAGE  RETURN  AND  LINE  FEED. 
THE  ARGUMENTS  ARE: 

TEXT  =  TEXT  OF  OUTPUT  MESSAGE. 

NCHAR  =  NUMBER  OF  CHARACTERS  IN  TEXT. 

TONL  IS  A  PRIME  SUPPLIEO  SUBROUTINE  TO  OUTPUT  A  CARRIAGE  RETURN 
AND  LINE  FEED  TO  THE  OPERATOR'S  TERMINAL. 

TOOCT  (NUM) 

TOOCT  IS  A  PRIME  SUPPLIED  SUBROUTINE  USED  TO  CONVERT  A  NUMBER  TO 
OCTAL  AND  DISPLAY  AT  THE  OPERATOR'S  TERMINAL. 

UNITIA  (CHAN) 

UNIT! A  IS  A  LOGICAL  FUNCTION  SUPPLIED  BY  PRIME,  USED  TO  CHECK  FOR 

THE  USE  OF  A  CHANNEL  NUMBER.  THE  FUNCTION  IS  RETURNED  TRUE  IF  THE 
CHANNEL  IS  IN  USE.  THE  ARGUMENT  IS* 

CHAN  =  CHANNEL  NUMBER  TO  BE  CHECKED. 

UPDATI  ( CHAN , BUFFER , KE Y , ARRAY .FLAGS , ALTRTN , INDEX , FNO , BUFLEN , KEYLEN ) 

UPDAT*  IS  A  MIDAS  (MULTIPLE  INDEX  DATA  ACCESS  SYSTEM)  SUBROUTINE 
USED  TO  REWRITE  A  RECORD  PREVIOUSLY  FOUND  BY  LOCK*. 

’W!R“!E?}!it8EcitwMEi  NUMBER  TO  THE  DATA  FILE. 

BUFFER  »  AN  ARRAY  IN  MEMORY  CONTAINING  THE  RECORO  TO  BE  UPDATED. 
KEY  =  KEYWORD 

ARRAY  =  A  16  WORO  ARRAY  CONTAINING  INDEX  AND  RECORD  POINTERS  AND 
ERROR  CODE. 

A  16  BIT  WORD  USED  TO  PASS  OPTION  CONDITIONS  TO  MIDAS. 
RETURN  TAKEN  IF  ANY  ERROR  OCCURES. 

INDEX  LEVEL,  0  «=  PRIMARY,  1-1?  FOR  SECONDARIES. 

FILE  NUMBER,  ALWAYS  =  0 
LENGTH  OF  DATA  BUFFER,  MUST  BE  0 
LENGTH  OF  KEYWORD,  MUST  BE  0 


TONL 


FLAGS 

ALTRTN 

INDEX 

FNO 

BUFLEN 

KEYLEN 
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VOPEN*  (FILE.FLEN, MODE , CHAN .ERROR ) 

VOPENI  IS  A  SUBROUTINE  USED  TO  OPEN  A  FILE  ON  AN  AVAILABLE 
CHANNEL  (SUPPLIED  BY  THE  SYSTEM).  THE  ARGUMENTS  ARES 
FILE  »  FILE  NAME  TO  BE  OPENED. 

FLEN  =  LENGTH  OF  FILE  NAME. 

NODE  =  READ/URITE  FLAG. 

CHAN  =  RETURNED  CHANNEL  FOR  OPENED  FILE. 

ERROR  =  RETURNED  ERROR  CODE. 

WTL I  N«  ( CHAN .BUFFER , COUNT . ERROR ) 

WTLINt  IS  A  PRIME  SUPPLIED  SUBROUTINE  USED  TO  WRITE  AN  ASCII 
STRING  TO  A  FILE.  THE  ARGUMENTS  ARE: 

CHAN  =  FILE  CHANNEL  NUMBER. 

BUFFER  ■  ARRAY  CONTAINING  THE  STRING  TO  BE  WRITTEN. 

COUNT  =  NUMBER  OF  U  BIT  WORDS  IN  BUFFER. 

ERROR  =  RETURNED  ERROR  CODE. 

YSNOtA  (TEXT. LEN. KEY) 

YSN04A  IS  A  LOGICAL  FUNCTION  SUPPLIED  BY  PRIME  USED  TO  DISPLAY  A 
MESSAGE  AND  RECEIVE  A  YES  OR  NO  FROM  THE  OPERATOR.  THE  FUNCTION 
IS  RETURNED  TRUE  FOR  A  YES  RESPONSE.  THE  ARGUMENTS  ARE: 

TEXT  =  MESSAGE  USED  AS  A  PROMPT,  A  '  IS  APPENDED. 

LEN  *  LENGTH  OF  MESSAGE  IN  BYTES. 

KEY  =  DEFAULT  KEY 

2FIL  (BUFFER, LENB, CHAR) 

ZFIL  IS  A  PRIME  SUPPLIED  SUBROUTINE  USED  TO  FILL  AN  ARRAY  WITH 
A  SPECIFIC  CHARACTER.  ZFIL  RUNS  IN  VIRTUAL  NODE  ONLY. 

THE  ARGUMENTS  ARE: 

BUFFER  =  ARRAY  TO  BE  FILLED. 

LENB  =  LENGTH  OF  BUFFER  IN  BYTES. 

CHAR  =  CHARACTER  FOR  FILLING,  LEFT  JUSTIFIED. 

ZMV  (TEXTS. LENS, TEXTD, LEND) 

ZMV  IS  A  PRIME  SUPPLIED  SUBROUTINE  USED  TO  MOVE  A  TEXT  STRING  FROM 
ONE  ARRAY  TO  ANOTHER,  TRUNCATING  OR  BLANK  PADDING.  ZMV  RUNS  IN 
VIRTUAL  MODE  ONLY.  THE  ARGUMENTS  ARE: 

TEXTS  =  SOURCE  TEXT. 

LENS  =  LENGTH  OF  SOURCE  STRING. 

TEXTD  =  DESTINATION  TEXT. 

LEND  =  LENGTH  OF  DESTINATION  STRING. 


ZMVD  (TEXTS, TEXTD, LEN) 

ZMVD  IS  A  PRIME  SUPPLIED  SUBROUTINE  USED  TO  MOVE  TEXT  FROM  ONE 
ARRAY  TO  ANOTHER.  THE  ARRAYS  ARE  ASSUMED  TO  BE  OF  EQUAL  SIZE. 
ZMVD  RUNS  IN  VIRTUAL  MODE  ONLY.  THE  ARGUMENTS  ARE: 

TEXTS  =  SOURCE  TEXT  STRING. 

TEXTD  =  DESTINATION  ARRAY. 

LEN  =  LENGTH  OF  STRING  IN  BYTES. 


END 


DATE 

FILMED 


DTIC 


V 


